bahasa pemrograman pascal gerak lurus beraturan

program  Gerak_Lurus_Beraturan ;
uses crt ;
label
         ulang ;
var
         x, t : real ;
         vkr, vkc, d : integer ;
begin
        clrscr;
        ulang:
        write('Kecepatan kura-kura : '); read(vkr);
        if vkr < 0 then Goto ulang;
        write('Keccepatan kancil : '); read(vkc);
        write('Nilai delta : '); read(d);
        t := (d * vkc) / (vkc - vkr);
        x := vkc * t;
        while vkc < 0 do
        begin
             write('Kecepatan kancil : '); read(vkc);
        end;
        while d < 0 do
        begin
             write('Kecepatan kura-kura : '); readln(vkr);
        end;
        writeln('Waktu kura-kura dan kancil bertemu = ',t);
        writeln('Jarak kura-kura dan kancil bertemu = ',x);
        readln;
end.