Pascal – stáří versus mládí

Program podle věku určí, zda je člověk starý či mladý. Berte program s rezervou :).

Jde o jednoduchý příklad pro začátečníky pro procvičení podmínky if a čtení vstupů a výstupů.

Zdrojový kód Free Pascal

program Stari;
var vek: integer;
begin
  write('Zadej vek: ');
  readln(vek);
  if vek < 20 then
    write('Jsi jeste mlady, to se mas.')
  else
    write('Tak to jsi uz pekne stary :-).');
  readln;
end.

Spuštění programu

Zadej vek: 14
Jsi jeste mlady, to se mas.