Конструктор алгоритмов.вводится число - номер года. определить является ли этот год високосным. високосным считается год, кратный 4, но не оканчивающийся двумя нулями (1900 - не високосный, но 2000 - високосный

program abc;

var a:integer;

begin

  writeLn('Введите год');

  write('=> ');

  readLn(a);  

  if (a mod 4 = 0) and ((a mod 1000 = 0) or (a mod 100 <> 0)) then writeLn('Год ',a,' - високосный') else writeLn('Год ',a,' - не високосный')

end.

Объяснение: