В паскале: Найти сумму целых положительных чисел, кратных 5 и меньше 200.

целеком писать не буду, но как-то так:
pos,result:integer;

pos:=5;
result::=0;
while pos