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.