Program pierwszy;
var x : char; // Deklarowanie zmienna x typu char
// char - jeden znak/litera/cyfra
Begin
writeln('Znasz sie na programowaniu (t/n)?'); // Writeln('TEXT') - polecenie do pisania
readln(x); // Wczytujemy tekst z klawiatury.
if ( x = 't' ) then // Instrukcja warunkowa.
// Sorawdzamy czy x = 't', czyli czy
// uzytkownik wcisnal przycisk t.
writeln('To idz na piwo!') // Jak wcisnal t to piszemy zeby szedl na piwo.
else // W przeciwnym wypadku, jesli nie wcisnal t
writeln('To bierz sie do roboty!'); // to piszemy zeby zabral sie do roboty.
readln; // Dodatkowa komenda - zeby program sie zamknal za szybko
end.