program casel

Program case1;
Uses Crt;
Var angka : integer;
Begin
Write(‘Masukan angaka 1,2,atau 3’);
Readln(angka);
Case angka of
1:writeln(‘anda menekan angka1’);
2:writeln(‘anda menekan angka2’);
3:writeln(’anda menekan angka3’);
else
writeln(’anda salah memasukkan angka’);
End;
Readln;
End.