50'ye kadar sayılardan 5'in katlarının, 3'ün katlarının, 7'nin katarının ayrı ayrı toplamı - while ile

PROGRAM deneme5;
USES CRT;
VAR i, TOPLAM!, TOPLAM2, TOPLAM^3 : INTEGER;

BEGIN
CLRSCR;
i:=0;
TOPLAM1 := 0;
TOPLAM2 := 0;
TOPLAM3 := 0;


WHILE i < 50 DO
BEGIN

IF i MOD 5 = 0 THEN
BEGIN
TOPLAM1 := TOPLAM1 + i;
END;

IF i MOD 3 = 0 THEN
BEGIN
TOPLAM2 := TOPLAM2 + i;
END;

IF i MOD 7 = 0 THEN
BEGIN
TOPLAM3 := TOPLAM3 + i;
END;
i = i + 1;
END;

WRITELN (‘ BESIN KATLARININ TOPLAMI = ‘, TOPLAM1);
WRITELN (‘ UCUN KATLARININ TOPLAMI = ‘, TOPLAM2);
WRITELN (‘ YEDININ KATLARININ TOPLAMI = ‘, TOPLAM3);

READLN;
END;