Nejjednodušší základní program

program nasobilka;
uses crt;
var a, b, i: integer;

begin
     writeln ('zadej cislo');
     readln  (A);
     clrscr;  {to je vymazani obrazovky}
     writeln ('zadej dalsi cislo');
     {writeLN napise text a ukonci radek (na rozdil od write)}
     readln  (B);
     writeln ('soucet cisel ',a,  ' a  ',b , ' je ',a+b);

     if a = b then
     {kdyz - tak, to znas:)}
        writeln ('cisla ',a,  ' a  ',b , ' jsou stejna')
     else
     {jinak...}
         writeln ('cisla ',a,  ' a  ',b , ' nejsou stejna');

     for i:=1 to 10  do
         writeln (i,  ' x  ',a , ' =',i * a);


     writeln ('stiskni cokoli a program skonci');




     repeat until keypressed;
     {motej se dokola, po zmacknuti cehokoli skonci}
 end.