Pascal Tebak Usia

Program Tebak_Usia;
uSES WINCRT;
var
   n,b,hasil : integer;
   a       : char;
begin
     clrscr;
     writeln('PROGRAM TEBAK USIA');
     writeln('==================');
     writeln;
     write('Masukkan angka lebih besar dari 1 dan lebih kecil dari 10 : ');readln(n);
     hasil:=n*2;
     hasil:=hasil+5;
     hasil:=hasil*50;
     write('apakah anda sudah berulang tahun pada tahun ini ? (y/n) : ');readln(a);
     if (a='y') or (a='Y') THEN
        hasil:=hasil+1760;
     if (a='n') or (a='N') then
        hasil:=hasil+1759;
     write('Hasil tersebut Anda kurangi dengan 4 digit tahun kelahiran Anda : ');readln(b);
     hasil:=hasil-b;
     writeln;                                                                                  
     writeln('Maka Anda akan punya 3 digit angka');
     writeln('Hasil pertebakan adalah ',hasil);
     WRITELN;
     writeln('Keterangan : Digit pertama adalah angka pilihan anda pertama kali, dan dua digit berikutnya adalah usia anda !');
end.