Program Nilai

program nilai;
uses wincrt;
const a=0.4;
b=0.6;
var nim:real;
nama:string;
d,e,f:real;
pilih:char;
begin
REPEAT
CLRSCR;
write('masukkan nama= ');readln(nama);
write('masukkan nim= ');readln(nim);
write('nilai UTS= ');readln(d);
write('nilai UAS= ');readln(e);
f:=a*d+b*e;
writeln('nilai akhir adalah= ',f:5:2);
if f<50 then writeln('gagal') else writeln('lulus');
write('apakah ingin mengulang lagi(Y/T)?');readln(pilih);
until pilih='t';
write('selesai');
end.