Составить программу паскаль

готово

Объяснение:

Задача 1

var

 n: integer;

begin

 Write('Введите чило >>> ');

 ReadLn(n);

 if n mod 2 = 0 then

   WriteLn('четное')

 else

   WriteLn('нечетное')

end.

Задача 2

var

 n: integer;

begin

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

 ReadLn(n);

 if (n mod 100) = 0 then

 begin

   if (n div 100) mod 4 = 0 then

     WriteLn(n, ' год - високосный')

   else

     WriteLn(n, ' год - не високосный');

 end

 else

   if n mod 4 = 0 then

     WriteLn(n, ' год - високосный')

   else

     WriteLn(n, ' год - не високосный');

end.