5 kasım- repeat*until

program deneme1;
uses crt;
var i, toplam, toplam2, toplam3: integer;

begin
clrscr;
i:=0;
toplam:=0;
toplam2:=0;
toplam3:=0;

repeat
if i mod 5= 0 then

begin
toplam:=toplam+i;
end;

if i mod 7= 0 then

begin
toplam2:=toplam2+i;
end;

if i mod 3= 0 then

begin
toplam3:=toplam3+i;
end;


i:= i+1;
until i>50;
writeln(toplam);
writeln('7 nin katlarinin toplami: ', toplam2);
writeln('3 un katlarinin toplami:', toplam3);

readln;
end.