program seraCuFlori;
var ziua,flori:integer;
begin
writeln('a) rezolvare cu for ...');
ziua:=1; flori:=10;
for ziua:=2 to 7 do
flori:=flori+15;
writeln(' nr. de flori dupa o saptamana: ', flori);
writeln; writeln('b) rezolvare cu while ...');
ziua:=1; flori:=10;
while (ziua<7) do
begin
ziua:=ziua+1;
flori:=flori+15;
end;
writeln(' nr. de flori dupa o saptamana: ', flori);
writeln; writeln('c) rezolvare cu repeat ...');
ziua:=1; flori:=10;
repeat
ziua:=ziua+1;
flori:=flori+15;
until ziua>6;
writeln(' nr. de flori dupa o saptamana: ', flori);
end.