Masukkan kode berikut:
program io3;
uses crt;
var s1, s2:string; i1, i2:integer;
begin
write('Masukkan nama anda '); readln(s1);
write('Masukkan umur anda '); readln(i1);
writeln;
write('Masukkan nama teman anda '); readln(s2);
write('Masukkan umur teman anda '); readln(i2);
readln;
end.
*Jika menghadapi kesalahan atau pertanyaan dengan program di atas. Harap komen di bawah.
ngeri sekali pascal semua mas hahaha