Напишите программку, пожалуй та

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программка не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введите значение х и у через пробел:');
  var xy:=x+y;
  var z:real;
  if xylt;0 then z:=0.8+x
  else
    if xylt;=5 then z:=y*x
    else z:=x*x+y*y+5;
  Writeln('z=',z)
end.

begin
  var (x,y):=ReadReal2('Введите два числа через пробел:');
  if x-ygt;0 then Writeln('Их разность положительна')
  else Writeln('Их разность не положительна')
end.

1)
Program n1;
var x,y,z: real;
begin
readln(x,y);
if x+ylt;0 then z:=0.8+x else if x+ygt;5 then z:=x*x+y*y+5 else z:=y*x;
write('z=',z);
end.
2)
Program n2;
var a,b: real;
begin
readln(a,b);
if a-bgt;0 then write('разность положительная') else
write('разность не положительная');
end.