Написать программу, которая в последовательности трехзначных чисел определяет количество и сумму чисел. первая и последняя цифра которых одинаковы. количество чисел неизвестно. ввод оканчивается 0. на экране должно быть выведено количество и сумма таких чисел.
begin
readln(a);
while a<>0 do begin
readln(a);
s:=s+a;
i:=i+1;
end;
writeln(s,' ',i);
end.