[grechane]

убиться до пятницы

Определить, являются ли введеные с клавиатуры символы правильной записью целого числа, и вычислить сумму цифр введенного числа. Ввод заканчивается точкой.
Var c: char;
sum: integer;
Begin
writeln('Введите символы. Ввод закончите точкой:');
sum:= 0;

read(c);
While (c<>'.') Do
begin
if (c in ['0'..'9']) then
sum:= sum+(Ord(c)-Ord('0'))
else
begin
Writeln('Не является правильной записью числа.');
exit;
end;
read(c);
end;

Writeln('Сумма цифр числа: ',sum);
End.