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

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