program biodata;
uses crt;
var
nama, alamat :string;
umur : integer;
begin
clrscr;
writeln('=====================================');
writeln(' Biodata');
writeln('=====================================');
write('Nama : ');
readln(nama);
write('Umur : ');
readln(umur);
write('Alamat : ');
readln(alamat);
writeln('=====================================');
writeln('Jadi data Anda : ');
writeln('Anda bernama ',nama,'. Umur Anda ',umur,' tahun. Anda tinggal di',alamat,');
writeln;
readkey;
end.
uses crt;
var
nama, alamat :string;
umur : integer;
begin
clrscr;
writeln('=====================================');
writeln(' Biodata');
writeln('=====================================');
write('Nama : ');
readln(nama);
write('Umur : ');
readln(umur);
write('Alamat : ');
readln(alamat);
writeln('=====================================');
writeln('Jadi data Anda : ');
writeln('Anda bernama ',nama,'. Umur Anda ',umur,' tahun. Anda tinggal di',alamat,');
writeln;
readkey;
end.
Komentar
Posting Komentar