Program menentukan usia

program menghitung_usia

uses wincrt;

var
nama : string;
umur,TL:integer;

begin
writeln(‘nama kamu siapa?’);readln(nama);
writeln(‘tahun lahir kamu?’);readln(TL);

umur:=2018-TL;
writeln(umur);
readkey;
end.