Question

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

Answer 1

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

Answer 2

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