50'ye kadar 2'şer 2'şer artan olan sayılardan 5'in katları olanların toplanması - while kullanılarak

PROGRAM deneme4;
USES CRT;
VAR i : INTEGER;

BEGIN
CLRSCR;
i:=0;

WHILE i < 50 DO
BEGIN
IF i MOD 5 = 0 THEN
BEGIN
WRITELN(i);
END;
i = i + 2;

END;

READLN;
END.