Составьте пожалуйста блок-схему к задаче
program zzz;
var a,b,d,k:real;
Begin
Readln(a);
d:=0;
k:=0;
While d<16 do
Begin
b:=(1+k/100)*a;
writeln(b);
d:=d+2;
k:=k+5
end
end.