Для того чтобы выходить в Интернет, каждому компьютеру присваивается так называемый IP-адрес. Он состоит из четырех целых чисел в диапазоне от 0 до 255, разделенных точками. В следующих трех строках показаны три правильных IP-адреса:
127.0.0.0
192.168.0.01
255.00.255.255
Напишите программу, которая определяет, является ли заданная строка правильным IP-адресом.


Формат входного файла:

На вход программе подается строка длиной не более 15 символов, которая включает цифры и ровно три точки.


Формат выходного файла:

Если строка является правильным IP-адресом, необходимо вывести 1, иначе 0.

program ip;var s,s1:string;     i,j,x,err:integer;      f:boolean;beginreadln(s);i:=1; j:=1; f:=true;while (j<4) and f dobegin while s[i]<>'.' do  begin     s1:=s1+s[i];    inc(i);  end;  val(s1,x,err);  f:=x<256;  delete(s1,1,length(s1));  inc(j);end;if f thenbeginwhile i<=length(s1) do begin  s1:=s1+s[i];  inc(i); end;f:=x<256;end;if f then writeln(1) else writeln(0);end.