Даны два числа вводимые пользователями сравните их , если первое больше второго, второе увеличить в два раза или на оборот увеличить первое. нужна программа на паскале и блок схема.

Program z1;
var a,b:integer;
begin
writeln('Введите первое число:');
readln(a);
writeln('Введите второе число:');
readln(b);
if a>b then
begin
b:=b*2;
writeln(b);
end;
if b>a then begin
a:=2*a;
writeln(a);
end;
end.