Program Perkenalan Nama dan Umur dengan Bahasa Pascal

program perkenalan;
var
nama:string;
umur:integer;
begin
writeln('program kenalan');
writeln('akan menanyakan nama dan umur anda');
write('ketiklah nama anda : ');readln(nama);
write('berapa umur anda :');readln(umur);
writeln('nama =',nama);
writeln('umur (hari)=',umur*365);
readln;
end.

Posted in: BAHASA PASCAL