Prinzessin from Pati

soal 1 :

Program Pengulangan_Bintang;
uses wincrt;
var n,d:integer;

begin
writeln(' PENGULANGAN BINTANG ');
writeln;
writeln;
writeln;
begin
for n:=5 downto 1 do
begin
for d:=n downto 1 do
write('*');
writeln;
end;
end;
end.



soal 2 :

Program Nilai_Huruf;
uses wincrt;
var n,d,a : char; p:integer;

begin
writeln(' NILAI UJIAN AKHIR ');
writeln;
writeln;
writeln;
write('Nama Mahasiswa : ');readln(n);
writeln;
write('NIM : ');readln(d);
writeln;
write('Mata Kuliah : ');readln(a);
writeln;
write('Nilai Angka : ');readln(p);
writeln;
begin
if p>80 then
writeln('Nilai Huruf : A');
if (p<=80) and (p>=60) then
writeln('Nilai Huruf : B');
if p<60 then
writeln('Nilai Huruf : C');
end;
end.