Script apa yang kurang agar program hanya terulang 2 kali lalu keluar dengan sendirinya silakan dilihat tolong bantuannya....

Gunakan looping, jangan goto.
kalau itu ulang tak terhingga.

Kira kira gini:

Uses CRT;
Type bulat = integer;
pecahan = real;
var x : bulat;
y : pecahan;
var a : bulat;
Begin
    for a:=1 to 2 do
    begin
        clrscr;
        Write('Harga x : '); Readln(x);
        Write('harga y : '); Readln(y);
        Writeln('Nilai x : ',x:3);
        Writeln('Nilai y : ',y:3:0);
    end;
end.

sesuaikan code dengan keinginan, itu seharusnya sudah bisa, semoga membantu.

goto digunakan untuk memanggil pustaka yg telah diberi label untuk gambar ini gunakan sistem looping saja untuk perulangan