Лабы / Pascal.1.курс / part 1 / variant 13 / lab7

Program Stroka;
uses crt;
Var
str1,str2:string;
i:integer;
Begin
Textcolor(lightgreen);
clrscr;
Writeln('Vvedite stroku:');
readln(str1);
for i:=1 to length(str1) do begin
if (ord(str1[i])>=48) and (ord(str1[i])<=57) then str2:=str2+str1[i];
end;
Textcolor(red);
if (length(str2)<>0) then begin write('New stroka: ',str2);
writeln;
writeln('Ee dlina= ',length(str2)) end
else writeln('new stroki net');
readln;
End.