Вычислите и выведите на экран примерное число прожитых человеком дней (без учѐта високосных лет) , если в году 365 дней, а год рождения и текущий год запрашиваются у пользователя вашей программы. паскаль.

Program zadanie; var a,b: integer; begin  writeln('введите год рождения');   read(a);   writeln('введите текущий год');   readln(b);   if b> a then begin a: =(b-a)*365; writeln('примерное число прожитых дней=',a); end else if a> b then writeln('не правильно указаны год рождения и текущий год')  else begin a: =a*365;   writeln('примерное число прожитых дней=',a); end; end.

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.