Question

запишите блок схему на язык паскаля

Answer 1

var a: integer;
begin
a:=1;
while a<100 do
a:=(a+2)*2;
writeln(a);
end.