Определить, является ли заданная строка правильным IP-адресом

var s:string;
    i:byte;
begin
readln(s);
s:=s+'.';
i:=1;
while(pos('.',s)>0)and(i=1) do
 begin
  if not(strtoint(copy(s,1,pos('.',s)-1)) in [0..255]) then i:=0
  else delete(s,1,pos('.',s));
 end;
write(i)
end.

var s,s1:string;
    i,a,b:integer;
begin
readln(s);
s:=s+'.';
i:=1;
while(pos('.',s)>0)and(i=1) do
 begin
  s1:=copy(s,1,pos('.',s)-1);
  val(s1,a,b);
  if not(a in [0..255]) then i:=0
  else delete(s,1,pos('.',s));
 end;
write(i)
end.

var s,s1:string;
    i,a,b:integer;
begin
readln(s);
s:=s+'.';
i:=1;
while(pos('.',s)>0)and(i=1) do
 begin
  s1:=copy(s,1,pos('.',s)-1);
  if s1='' then i:=0
  else
   begin
    val(s1,a,b);
    if not(a in [0..255]) then i:=0
    else delete(s,1,pos('.',s));
   end;
 end;
write(i)
end.

'' - пустая строка
' ' -пробел

program l4;
var s,s2:string; bb,b:boolean;k,h:integer;
begin
read (s);
bb:=true;
while pos('.',s)> 0 do
begin
s2:=copy(s,1,pos('.',s)-1);
delete(s,1,pos('.',s));
val(s2,h,k);
b:=h<=255;
if not b then bb:=false;
end;
val(s,h,k);
b:=h<=255;
if not b then bb:=false;
if bb then write (1) else write (0);
end.

var s:string; k,i:integer;
begin
read (s);
for i:= length(s) downto 1 do
begin
if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1);
end;
writeln (s);
end.

var s,s2:string;
bb,b:boolean;
k,h:integer;
begin
readln(s);
s:=s+'.';;//добавим точку в конец
bb:=true;
while pos('.',s)> 0 do
 begin
  s2:=copy(s,1,pos('.',s)-1);
  if s2='' then bb:=false;
  delete(s,1,pos('.',s));
  val(s2,h,k);
  b:=h in [0..255];
  if not b then bb:=false;
end;
if bb then write (1) else write (0);
end.

var s:string;
begin
readln(s);
while pos('  ',s)>0 do//в апострофах 2 пробела
delete(s,pos('  ',s),1);//по 1 удаляем пока не останется 1
writeln (s);
end.

var s:string;