Написать программу, которая в последовательности трехзначных чисел определяет количество и сумму чисел. Первая и последняя цифра которых одинаковы.
Количество чисел неизвестно. Ввод оканчивается 0. На экране должно быть выведено количество и сумма таких чисел.

var a,s,i,b :integer;beginreadln(a);while a<>0 do beginreadln(a);s:=s+a;i:=i+1;end;writeln(s,'  ',i);end.