Two numbers A and B are given. The larger of these numbers is decreased by 3

Two numbers A and B are given. The larger of these numbers is decreased by 3, and the smaller is doubled. Draw up an amgoritm. ax ^ 2 + bx + c = 0 y = | x-1 |

var

We introduce two real variables:
A, B: real;

begin
The program allows the user to enter these numbers:
read (A, B);
The numbers are being tested. If A> B, then one block is executed:
if A> B then
begin
The value of the number A decreases by 3 units, B – doubles:
A: = A-3;
B: = B * 2;
end
If A <B, then another block is executed:
else
begin
The value of the number A is doubled, B – it becomes less by 3:
B: = B-3;
A: = A * 2;
end;
The program then displays the results to the user on the screen:
writeln (‘Number A:’, A);
writeln (‘Number B:’, B);
end.