Tugas pascal4

Logika If-then

Membuat program dengan logika seseorang akan tuntas jika nilai lebih dari 80

Uses wincrt;
Var
Nilai:real;
Ket: string[35];

Begin
Write(‘Masukan nilai anda :’);readln(nilai);
If nilai>=80 then ket:=’tuntas’;
If nilai<80 then ket:=’remidi’;
Writeln(ket);
End.

Tugas anda ! Buatlan program dengan keterangan
90-100 A
80-90 B
70-80 C
60-70 D
0 -60 E