Question

Перевести с алгоритма на паскаль
Алг выражение
Нач цел Х
Вещ У
Ввод Х
Если Х больше 0
То У равен корень из Х
Иначе У равен abs(Х)
Все
Вывод У
Конец

Answer 1

Конечно, в таком стиле не пишут, но это специально для Вас, чтобы было максимально похоже на "алгоритм".

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var x:integer;
  var y:real;
  Read(x);
  if x>0
  then y:=Sqrt(x)
  else y:=Abs(x);
  Writeln(y)
end.