Перевести с алгоритма на паскаль алг выражение нач цел х вещ у ввод х если х больше 0 то у равен корень из х иначе у равен abs(х) все вывод у конец

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

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.