Составьте программу pascal определяющую количество цифр во введённой строке s

Program gt; l,k,i: integer; s: string; begin readln(s); l: =length(s); k: =0; for i: =1 to l do if((ord(s[i])> 47)and(ord(s[i])< 58))then k: =k+1; writeln(k); end.

Varn, m, a, b, cost: integer; begin readln(a, b); // a - длина плитки, b - ширина readln(n, m);   // n - длина стены, b - ширина readln(cost); // стоимость 1й плитки writeln((n + a - 1) div a * (m + b - 1)div b, ' ', cost*(n + a - 1) div a * (m + b - 1)div b); // выводит количество плиток и их стоимость end. #include < bits/stdc++.h> using namespace std; int main(){     int a, b;     cin > > a > > b;     int n, m;     cin > > n > > m;     int cost;     cin > > cost;     cout < < (n + a - 1) / a *(m + b - 1)/b < < ' ' < < (n + a - 1)/a *(m + b - 1)/b * cost; }

Var   a,b,c,max,mid,min,t: integer; begin   writeln('введите через пробел три целых двухзначных числа');   readln(a,b,c);   if a> b then begin max: =a; min: =b end   else begin max: =b; min: =a end;   if max< c then begin mid: =max; max: =c end   else mid: =c;   if min> mid then begin t: =mid; mid: =min; min: =t end;   if (max-min)> mid then writeln('yes')   else writeln('no') end. тестовое решение: введите через пробел три целых двухзначных числа 37 93 74 no