program task;
var
n: real;
begin
write('Введіть число ');
readln(n);
if n mod 2=0 then write('Парне');
else write('Не парне');
readln;
end.
program task;
var
n: real;
begin
write('Введіть число ');
readln(n);
if n mod 2=0 then write('Парне');
else write('Не парне');
readln;
end.