program Nilai;
uses wincrt;
var N:integer;
begin
write('masukkan nilai adalah ');
readln(N);
begin
if N<40 data-blogger-escaped-br="" data-blogger-escaped-then="" data-blogger-escaped-write=""> else
if N<60 data-blogger-escaped-br="" data-blogger-escaped-then="" data-blogger-escaped-write=""> else
if N<70 data-blogger-escaped-br="" data-blogger-escaped-then="" data-blogger-escaped-write=""> else
if N<80 data-blogger-escaped-br="" data-blogger-escaped-then="" data-blogger-escaped-write=""> else write ('A');
end;
end.
uses wincrt;
var N:integer;
begin
write('masukkan nilai adalah ');
readln(N);
begin
if N<40 data-blogger-escaped-br="" data-blogger-escaped-then="" data-blogger-escaped-write=""> else
if N<60 data-blogger-escaped-br="" data-blogger-escaped-then="" data-blogger-escaped-write=""> else
if N<70 data-blogger-escaped-br="" data-blogger-escaped-then="" data-blogger-escaped-write=""> else
if N<80 data-blogger-escaped-br="" data-blogger-escaped-then="" data-blogger-escaped-write=""> else write ('A');
end;
end.
Comments
Post a Comment