LONGINT

PROGRAM repeat1;
USES CRT;
var i,toplam,a : LONGINT;


BEGIN

WRITELN('BIR TAM SAYI GIRINIZ ');
READLN(a);
i:=0;
toplam:=0;
CLRSCR;

REPEAT
IF i MOD 5 = 0 THEN

BEGIN
toplam:=toplam+i;
writeln(i);
END;
i:=i +1;

UNTIL i>a;

WRITELN (toplam);


READLN;
END.