tugas pascal (bu marliza)

uses crt;
var
digit: integer;
begin
clrscr;
digit:=1;
while digit <= 20 do
begin
write(digit);
digit:= digit+1;
readln;
end;
end.


uses crt;
var
digit: integer;
begin
clrscr;
digit:=1;
while digit <= 20 do
begin
write(digit);
digit:= digit+1;
readln;
end;
end.

uses crt;
var
nilai ujian:real;
ket : string;
begin
clrscr;
ket :='Tidak Lulus';
write ('Nilai yang didapat ? ');
readln (nilaiujian);
if nilaiujian > 60 then ket := 'LULUS';
writeln (ket);
readln;
end.


uses crt;
var
nilaiujian: real;
ket : string;
begin
clrscr;
ket := 'tidak lulus';
write ('Nilai yang didapat ? ');
readln (nilaiujian);
if nilaiujian > 60 then ket := 'LULUS';
writeln (Ket);
readln;
end.


uses crt;
var
nilai : char;
begin
clrscr;
write('Nilai huruf yang didapat : ');readln(nilai);
case nilai of
'A' : writeln ('T-shirt');
'B' : writeln ('Sepatu');
'C' : Writeln ('Topi');
end;
readln;
end.