program ot1_15_3cikla;

var

i,s:Integer;

begin

//for

s:=0;

for i:=1 to 15 do

s:=s+i;

writeln(s,' for');

//while

i:=1;

s:=0;

while i<16 do

begin

s:=s+i;

i:=i+1;

end;

writeln(s,' while');

//repeat

i:=1;

s:=0;

repeat

s:=s+i;

i:=i+1;

until i>15;

writeln(s,' repeat');

end.