TUGAS STRUKTUR DATA 'PROGRAM PILIHAN'

program pilihan;

uses wincrt;
var penjumlahan,pengurangan,perkalian,pembagian :string;
pilih,jawab:char;
label menu;

begin
menu:
clrscr;
writeln('pilihan yang tersedia adalah: ');
writeln('1. penjumlahan');
writeln('2. pengurangan');
writeln('3. perkalian');
writeln('4. pembagian');
writeln;
write('pilih menu di atas [1..4]? ');readln(pilih);
clrscr;
case pilih of
'1' :
begin
writeln('penjumlahan')
end;

'2' :
begin
writeln('pengurangan')
end;
'3' :
begin
writeln('perkalian')
end;
'4' :
begin
writeln('pembagian')
end;
end;
end.