С клавиатуры вводится текст из прописных и строчных латинских букв и цифр. Ввод прекращается при нажатии клавиши Enter. Произвести следующие операции:
1) напечатать только цифры, входящие в этот текст;
2) найти процентное содержание цифр в исходном тексте.(Паскаль)

//Pascal ABC.NET 3.1 сборка 1219//Школьный вариантVar s:string; p:real; se:set of char; i:integer;beginreadln(s);se:=['0','1','2','3','4','5','6','7','8','9'];for i:=1 to length(s) doif s[i] in se thenbegin p:=p+1; write(s[i]);end;p:=p/(length(s)/100);writeln;writeln('Percent=',p);end.//Альтернативный вариантVar s:string; se:set of char;beginreadln(s);se:=['0','1','2','3','4','5','6','7','8','9'];s.Where(x -> x in se).Println;writeln('Percent=',s.where(x -> x in se).Count/(length(s)/100));end.Пример ввода:I3artle, Caster, 1 of 7 summoned characters.Пример вывода:317Percent=6.81818181818182