Задание по информатике .Составить алгоритм

program a;
var A: integer;
B: integer;
Begin
writeln ('Введите значение A и B');
readln (a,b);
if A>B then
Begin
A:=A-B;
else
A:=B/A;
writeln ('A=', A);
end;
end.
Вроде так