сделать лабораторную работу по информатике

word,power point,pdf,презентация, я не смог ничего написать потому что ошибка в приложении

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.

var

  i,s: longint;

begin

  for i: =20 to 60 do if i mod 5=0 then inc(s,i);

writeln(s);

end.