Составить алгоритм числа а и в, число а увеличить на 1, число в умножить на 2, цикл 5 раз

На паскале:
program zz;
var a,b,i,n: integer;
begin
n:=5;
write('A='); readln(A);
write('B='); readln(B);
for i:=1 to n do
begin
A:=A+1;
B:=B*2;
end;
writeln('A=', A);
writeln('B=', B);
end.