Masukkan koder berikut:
program io1;
uses crt;
var i: integer;
begin
write('Input angka 1 sampai 32767'); readln(i);
writeln(i);
end.
*Jika menghadapi kesalahan atau pertanyaan dengan program di atas. Harap komen di bawah.
Masukkan koder berikut:
