Требуется определить, является ли данный год високосным. (напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.) входные данные вводится единственное число - номер года (целое, положительное, не превышает 30000). выходные данные требуется
вывести слово yes, если год является високосным и no - в противном случае. pascal
program godVisоkos;
var
god: integer;
begin
writeln ('Введите год');
readln(god);
if (god mod 4 = 0) and (god mod 100 <> 0) or (god mod 400 = 0) then
writeln('ВИСОКОСНЫЙ') else
writeln('НЕ ВИСОКОСНЫЙ');
end.