Question

программа в паскале где если число больше 12 то оно возводится в квадрат,
в противном случае уменьшается на 37

Answer 1

program Henry;
var
a,b: integer;
begin
writeln('Введите число: ');
readln(a);
  if a >12
  then
  begin
  b:=Sqr(a);
  Writeln('Получилось чилсо: ', b);
  end
  else
  begin
  b:=a-37;
  Writeln('Получилось чилсо: ', b);
  end;
end.