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

{ VARIANT 14 }

program lab7;
uses crt;
var
s,s1:string;
i,n,c:integer;

begin
clrscr;
write('Enter string: ');
readln(s);
s:=s+' ';
while pos(' ',s)<>0 do begin
s1:=copy(s,1,pos(' ',s)-1);
val(s1,n,c);
if c=0 then begin
writeln('Founded entry: ',n);
end;
delete(s,1,pos(' ',s));
end;
writeln('Press <enter> to exit');
readln;
end.