Životnosť

program zivotnost;
{$APPTYPE CONSOLE}
uses SysUtils;
var  r,pr,roz,i:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('V akom rozsahu chcete hladat?: ');
  readln(roz);
  write('Kolko rokov mal vas posledny predok?: ');
  readln(pr);
  for i:=1 to roz do
    begin
      write('Zadajte vek predka: ');
      readln(r);
    end;
  if r>pr then writeln('Zivotnost sa zvysuje!');
  if r<pr then writeln('Zivotnost sa zmensuje!');
  readln;
end.