Подписала решение на рисунках. (см. ниже)
Var
N,S:integer;
Begin
S:=0;
ReadLn(N);
For N:= 1 to N do
if N mod 5 = 0 then S:=S+N;
WriteLn('S = ',S);
End.
Мені здається, відповідь 37
Дискета, кассета, лазерный диск... Что-то из этого. Дискеты были на 5 и 3,5 дюйма