введите с клавиатуры 8 положительных целых чисел. Определите, сумму двухзначных чисел. Программа должна вывести одно число: сумму двузначных чисел. Как решить в Pascal????

Ответ учителя по предмету Информатика

Var

A,i,S:integer;

Begin

S:=0;

For i:= 1 to 8 do

    Begin

    Read(A);

    if (A>9)and(A<100) then S:=S+A;

    End;

WriteLn(‘Сумма двузначных чисел равна: ‘,S);

End.