Lulus-Tidak Lulus

Menampilkan NA= 40% UTS + 60% UAS dan keterangan( lulus atau tidak).
Lulus jika NA>50. Input nama, NIM, UTS, UAS.

uses wincrt;
var
nim,nama:sting;
uts,uas:integer;
na:real;
begin
write('NIM = '); readln(nim);
write('Nama = '); readln(nama);
write('Nilai UTS = '); readln(uts);
write('Nilai UAS = '); readln(uas);
na:=(40/100*uts)+(60/100*uas);
writeln('Nilai akhir = ',na:10:2);
if na>50 then
writeln('LULUS');
else
writeln('TIDAK LULUS');
end.