Лабы / 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.