program pascal hitung umur

Alhamdulillah,,, akhirnya final juga tugas UAS PIK ^__-

Ayo Belajar!!

program PASCAL-hitung umur

program hitung_umur;
uses wincrt;
var
nama:string;
umur,tahun:integer;
begin
writeln('masukkan nama:');readln(nama);
writeln('masukkan tahun lahir:');readln(tahun);
umur:=2011-tahun;
write('umur:');writeln(umur);readln(umur);
end.