8 класс. Информатика. Напишите пожалуйста. Очень срочно надо! №1. Дано целое число,…

Делал на ABC Pascal: program qq; uses crt; var n: integer; begin clrscr; writeln ('Введите число: '); readln (n); if not (n mod 2=0) and (n>10) and (n<20) then begin n: =n*n; writeln ('Квадрат этого числа равен: ',n); end else writeln ('Число не подходит условию задачи'); readkey; end.