Question

Кто шарит паскаль? Сделайте 1 программку?

Answer 1

var

year:integer;

begin

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

readln(year);

if (year > 2000) and (year < 2101) then

writeln('Этот год относится к XXI веку') else

writeln('Этот год не относится к XXI веку');

end.