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

Готово

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