Напишите программу, которая определяет, является ли заданная строка правильным IP-адресом.
на паскале

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString(IP=).ToWords(.);
  if a.Lengthlt;gt;4 then
    Writeln(Адрес - это четыре числа, разделенные точками)
  else begin
    var n:integer;
    foreach var c in a do begin
      if not TryStrToInt(c,n) then begin
        Writeln(c,- не целое число); exit end
      else
        if ngt;255 then begin Writeln(c, превышает 255); exit end;
      end;
    Writeln(IP-адрес корректен)  
    end
end.

Примеры
IP= 128.16.35.a4
a4- не целое число

IP= 240.127.56.340
340 превышает 255

IP= 34.56.42,5
Адрес - это четыре числа, разделенные точками

IP= 128.0.0.255
IP-адрес корректен