Дан текст . определить количество цифр в нём

Var i,count: integer; str: string; begin readln(str); for i: =1 to length(str) do begin if (ord(str[i]) > = 48) and (ord(str[i]) < = 57) then inc(count); end; writeln('количество цифр = ',count); end.

Program abc; var a,b,c,i,n: integer; begin writeln('введите а :   '); read(a); writeln('введите b :   ); read(b); writeln('введите c :   '); read(c); if (a*a=b*b+c*c) or  (b*b=a*a+c*c) or  (c*c = a*a+b*b) then writeln(  'треугольник  прямоугольный') else if (a> b) and (a> c) then writeln('больший угол образован сторонами b и c')  else   if (c> a) and (c> b) then writeln('больший угол образован сторонами b и a')    else   if (b> a) and (b> c) then writeln('больший угол образован сторонами a и c');   end.     

small = input('Оно маленькое? ') == 'yes'

green = input('Оно зеленое? ') == 'yes'

# Вишня

if small and not green:

   print('Вишня мелкая и красная, это может быть вишня!')

else:

   print('Вишня мелкая и красная, это не вишня!')

# Горох

if small and green:

   print('Горох мелкий и зеленый, это может быть горох!')

else:

   print('Горох мелкий и зеленый, это не горох!')

# Арбуз

if not small and green:

   print('Арбуз крупный и зеленый, это может быть арбуз!')

else:

   print('Арбуз крупный и зеленый, это не арбуз!')

# Тыква

if not small and not green:

   print('Тыква крупная и оранжевая, это может быть тыква!')

else:

   print('Тыква крупная и оранжевая, это не тыква!')