50'ye kadar sayılardan 5'in katlarının toplamı - for ile

PROGRAM deneme3;
{CONST}
USES CRT;
VAR i,toplam: INTEGER;

BEGIN
CLRSCR;
toplam := 0;

FOR i := 1 TO 50 DO
BEGIN
IF ( i MOD 5 = 0) THEN
BEGIN
WRITELN(i);
toplam := toplam + i;
END;
END;

WRITELN(toplam);

READLN;
END.