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

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