7. Составить программу, позволяющую подсчитать количество минут в заданном году.

Исправил =)

vara:integer;begin writeln('Введите год: '); readln(a); if (a mod 4=0) and (a mod 100 <>0) or (a mod 400=0) then a:=366 else a:=365; if a=366 then writeln('В') else writeln('не'); writeln('В этом году ', a*24*60, ' минут');end.

vara:integer;begin writeln('Введите год: '); readln(a); if (a mod 4=0) and (a mod 100 <>0) or (a mod 400=0) then a:=366 else a:=365; writeln('В этом году ', a*24*60, ' минут');end.

Да, только ответ не может даваться в комментарии...

//////////////////////////////////