Pierwszy program.



Rozpoczynamy pisanie programów. Napisany tutaj program jest jednym z najprostszych, ale najlepiej obrazujących składnię języka. Więc do dzieła :



Zaczynamy od nazwy programu :
PROGRAM Pierwszy;


Deklarujemy bibliotekę (moduł) CRT :
USES Crt;


Deklarujemy zmienne :
VAR Imie : String[20];
    Lata : Byte;


Rozpoczynamy pisanie rozkazów :
BEGIN


Na poczštku czyścimy ekran :
ClrScr;


Wyświetlamy na monitorze tekst "Czesc! Jak masz na imie :" :
Write('Czesc! Jak masz na imie : ');
W nawiasie znajduje się porcja informacji, jakie mają być wyświetlone. Dodatkowo apostrofy (') informują, że jest to ciąg znaków.



Następnie czytamy do zmiennej Imie wpisane imię :
ReadLn(Imie);


Wyświetlamy tekst "A ile masz lat :" :
Write('A ile masz lat : ');


Czytamy do zmiennej Lata podany wiek :
Read(lata);


Wypisujemy :
Writeln(lata,' lat to duzo, ',imie, '.');
Write('No to czesc!');


Sprawdzamy stan klawiatury, aby program zakończył dzialanie po naciśnięciu klawisza :
ReadKey;


Kończymy działanie programu wpisując :
END.


Cały program powinen wygłądać tak :

PROGRAM Pierwszy;

USES Crt;

VAR Imie : String[20];
    Lata : Byte;
	Zn   : Char;

BEGIN
  Clrscr;
  Write('Czesc! Jak masz na imie : ');
  ReadLn(Imie);
  Write('A ile masz lat : ');
  Read(Lata);
  Writeln(Lata,' lat to duzo, ',Imie, '.');
  Write('No to czesc!');
  Zn:=ReadKey;
END.