01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / TOL / CIF

program cifra;{ўл¤Ґ«пҐв Ё§ б«®ў ⥪бв  ўбҐ жЁдал}
uses crt;
var st:string;
    
Procedure c(st:string);
  var i:integer;
Begin
   Writeln('жЁдал, ўбваҐвЁўиЁҐбп ў ¤ ­­®© бва®ЄҐ:');
   for i:=1 to length(st) do
   if st[i] in ['0'..'9'] then
   write(st[i])
  end;

BEGIN
   clrscr;
   writeln('ўўҐ¤ЁвҐ бва®Єг:');
   readln(st);
   c(st);
   writeln;
   readln;
end.