Напишите на языке паскаль ну там programbegin и тд

Question

Информатика: Напишите на языке паскаль ​ ну там programbegin и тд

jcyueurur · Answer

program raf105;

var n:integer;

begin

readln(n);

if (n mod 4=0) and (n mod 100<>0) or (n mod 400=0)

then writeln('366')

else writeln('365');

end.

Язык программирования PascalABC

Напишите на языке паскаль ​ ну там programbegin и тд