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