Начертить блок-схему к данной программе

var i: integer; s: real;

begin

writeln ('График тренировок');

i:=1;

s:=10;

repeat

i:=i+1;

s:=s+0.1*s;

until s>=20;

writeln ('Начиная с ', i, '-го дня спортсмен будет пробегать 20 км')

end.

89050864690    1   25.04.2020 00:13    0