Написать программу в паскале. определить количество дней в году, который вводит пользователь.

Var    y: integer;
 begin   
write('vvedite god: ');
 readln(y); 
    if y mod 4 = 0 then   
  y := 366
   else 
    y := 365; 
 writeln('dnei v godu: ', y);
end.

Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A mod 4 = 0 then Write(366)
else Write(365)
End.