Question

на вход поступает одно целое число x. Если число меньше 10, то возвести его в квадрат, иначе вычесть 10. Например, после запуска программы, вы ввели число 3, то программа выдаст 9; если после запуска программы, вы введете число 15, то программа выдаст число 5.

Answer 1

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.