program peluncuranRoket;
uses crt;
label roket;
var
i:byte;
begin
begin
clrscr;
write('masukan waktu peluncuran:'); readln(i);
end;
begin
roket:
i:=i-1 times;
write(i);
i:= i - 1; readln;
if i>0 then Goto roket else if i=0 then writeln('Go!');
end;
writeln;
readln;
end.
uses crt;
label roket;
var
i:byte;
begin
begin
clrscr;
write('masukan waktu peluncuran:'); readln(i);
end;
begin
roket:
i:=i-1 times;
write(i);
i:= i - 1; readln;
if i>0 then Goto roket else if i=0 then writeln('Go!');
end;
writeln;
readln;
end.
Tidak ada komentar:
Posting Komentar