Ответ:

uses PT4;

var k,p:integer;

begin

 Task('String19');

 var s:= ReadString;

 var f:=1;

 for p:=1 to s.Length do begin

   if(s[p] = '-') and (p <> 1) then begin f:=0; break; end; // Проверка на знак "-" в строке

   if(s[p] = '.') then begin f:=2; inc(k); end;  // K считает кол-во точек

   if(k > 1) then begin f:=0; break; end; // Если точек 2 => f:=0;

   if(s[p].IsDigit = false) and (s[p] <> '.') and (s[p] <> '-') then begin f:=0; break; end; // IsDigit - функция, которая проверяет является ли символ числом.

 end;

 print(f);

end.