напишите программу которая просит пользователя ввести 2 числа с клавиатуры. Если оба числа отрицательные и первое число больше второго, то каждое увеличится в 2. ПОЖАЛУЙСТА ПОМОГИТЕ

program chisla;

var x1, x2 : real;

begin

Readln(x1,x2);

If (x1<0) and (x2<0) and(x1>x2) then x1=x1*2; x2=x2*2;

Write(x1,x2);

end