Question

пользователь вводит целое число. если оно является четным и при этом не находиться между 10 и 20, то вывести на экран его квадрат. в противном случае напечатать исходное число

Answer 1

Готово........................

2c126c158bddb523f6b1a989929a2c36.pas

Answer 2

var
n:Integer;
Begin
 Read(n);
 if (n mod 2=0) and (n<10) or (n>20) then Writeln(n*n);
end.

2c126c158bddb523f6b1a989929a2c36.pas