program biodata

hai gays

berikut saya akan mencoba membuat aplikasi program biodata
maklum baru pemula dalam pembuatan program,
ya agak sedikit tidak rapi.
mudah2an bermanfaat buat teman2.


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 Saya : ');
writeln('Nama Saya  :',nama,'. Umur saya : ',umur,' tahun. Saya tinggal di :',alamat,'.');
writeln;
readkey;
end.