Пользователь ввел 2 числа. если первое меньше второго, то вычеслить их сумму, если нет, то разнозть. напишите программу, .

Var
  a, b: real;

begin
  Write('Введите через пробел два числа: ');
  Readln(a, b);
  if a < b then Writeln(a + b)
  else Writeln(a - b)
end.

Program A1;
Var a, b, c, r:real;
Begin
Writeln (' Введите значение a');
readln (a);
Writeln ('Введите значение b');
readln (b);
if abegin
c:=a+b;
Writeln ('c=', c);
end
else
r:=a-b;
Writeln ('r=", r);
end;
end.