Syntax Program Nilai IPK Angka menjadi Huruf Menggunakan Pascal

uses wincrt;
var Nilai : real;
jawaban: char;
begin
repeat
clrscr;
begin
writeln ('Nilai IPK Angka Menjadi Huruf');
writeln('');
write('Masukan IPK Anda : ');readln(Nilai);
if nilai>4.00 then write ('Jika diteruskan maka komputer anda akan stress mendadak') else
if nilai>=3.50 then write('Nilai Sempurna') else
if nilai>=3.00 then write('Nilai sangat baik') else
if nilai>=2.00 then write('Nilai baik') else
if nilai>=1.00 then write('Anda Harus mengulang') else
write('anda akan mengikuti kuliah tahun depan');
readln;
write ('apakah anda akan inputkan IPK lagi(Y/T) ? :');
readln(jawaban);
end;
until (jawaban='T');
donewincrt;
end.




Hasil Dari Syntax Diatas