Question

Помогите пожалуйста разобрать что там написано,зрение подводит(
Даю 50 балов!

Answer 1

//сумма чисел, оканчивающихся на 5

var

k,n : integer;

sum : integer;

begin

k:=0;

sum:= 0;

repeat

readln(n);

if n mod 10 = 5 then

sum := sum + n;

inc(k);

until n = 0;

writeln('Количество чисел, оканчивающихся на 5:',k);

writeln('Сумма чисел, оканчивающихся на 5:',sum);

end.