Задачи Паскаль. Даны 2 числа: a и b. Увеличить их на 7 единиц если a<b. В противном случае уменьшить в 2 раза. Очень надеюсь на вашу помощь ​

Паскаль ABC Net

program numbers;

var a, b:real;

x:integer;

label 10,20;

begin

10:Writeln ('введите значение числа a');

Readln(a);

Writeln ('введите значение числа b');

Readln(b);

if a<b then

begin

a:=a+7;

b:=b+7;

end

else

begin

a:=a/2;

b:=b/2;

end;

Writeln ('Значение чисел a, b: ', a,' и ' ,b);

Writeln ('Закончить программу 1-Да, 2-Нет');

Readln(x);

if x=1 then goto 20 else goto 10;

20:end.