Ответ:
алг
нач
цел n,t,m,r,s
ввод n
ввод t
ввод m
ввод r
ввод s
если m*n+r*t=s то вывод "спасибо за покупку" все
если m*n+r*t>s то вывод "доплатите еще" все
если m*n+r*t<s то вывод "возьмите сдачу" все
кон
Не являются которые скаченные
var s,summ:integer;
begin
writeln("До какого числа считать");
readln(s);
for i:=1 to s do
if i mod 5=0 then
summ:=summ+i;
writeln(summ);
end.