První program

všimni si:
na konci (skoro) každého řádku je středník
na konci posledního řádku je tečka
begin je levá závorka
end je pravá závorka


program VetsiCislo ( Input, Output );
var A, B : Integer;
begin
Write ( 'Urceni vetsiho cisla ' );
Write ( 'Zadejte dve cisla ' );
Read ( A, B );
if A > B then
Write ( 'vetsi je ', A )
else
Write ( 'vetsi je ', B );
end.

Neštěstí tohoto programu je, že proběhne a bez varování bleskově skončí.
Lze pořešit vložením příkazu
Read (A);
před závěrečný příkaz
end.
To však není příliš elegantní...