Question

Tolong dibantu ya..
Buat dalam bentuk free pascal
Jangan asal ya..
Kalo asal aku report
Mohon bantuannya..

Answer 1

Program double;

var c:char; i:integer;
begin
writeln('apakah anda ingin melanjutkan permainan ini?');
readln(c);
case c of
'n' :
begin
writeln('Bye!');
readln;
end;

'y':
begin
writeln('masukkan pilihan game');
writeln('1. game 1');
writeln('1. game 2');
writeln('1. game 3');
writeln('1. game 4');
writeln('1. game 5');
writeln('1. game 6');
writeln('1. game 7');
readln(i);
case i of
1 : writeln('anda memilih game 1');
2 : writeln('anda memilih game 2');
3 : writeln('anda memilih game 3');
4 : writeln('anda memilih game 4');
5 : writeln('anda memilih game 5');
6 : writeln('anda memilih game 6');
7 : writeln('anda memilih game 7');
end;
end;
end.