program Project4;
{$APPTYPE CONSOLE}
label 1,2;
var D,V:INTEGER;L:real;
begin
1:WRITELN('Vvedit dovjynu vulyci v kilometrah');
READLN(D);
if D<=0 then begin
writeln(D,' kilometriv ne isnue');
goto 1;end else
2:WRITELN('Vvedit vidstan mij stovbamy');
readln(V);
if (V<=0)then begin
writeln(V,' metriv ne isnue');
goto 2;end else
if V>(D*1000) then begin
writeln(V,' zavelyka vidstan');
goto 2;end else
L:=D*1000/v;
writeln('Na vulyci ',D,'km treba ',L:0:0,' lampuchok');
readln;
end.