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

Question

Паскаль. составьте программу, которая введённого с клавиатуры, выводит количество дней в феврале для високосного и не високосного годов.

Answer 1

Var s:string;
begin;
readln(s);
if (s<>'Високосный') and (s<>'Не високосный') then exit;
if s='Високосный' then writeln('29') else writeln('28');
end.