На вход поступает одно целое число x. Если число меньше 10, то возвести его в квадрат, иначе вычесть 10. Например, после запуска программы, вы ввели число 3, то программа выдаст 9; если после запуска программы, вы введете число 15, то программа выдаст число 5.
program Pomocsh;
var
x:integer;
begin
read(x);
if x<10 then begin
x:=x*x;
writeln(x);
end
else begin
x:= x-10;
writeln(x);
end
end.