Вычислите и выведите ** экран примерное число прожитых человеком дней (без учѐта ...

Question

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

Answer 1

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.