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

program gt;l,k,i:integer;s:string;beginreadln(s);l:=length(s);k:=0;for i:=1 to l doif((ord(s[i])>47)and(ord(s[i])<58))then k:=k+1;writeln(k);end.