program Project2; {$APPTYPE CONSOLE} var s,i:integer; begin s:=0; i:=5; while i<=100 do begin s:=s+i; i:=i+5; end; writeln(s); readln; readln; readln; readln; readln; end.