Petruk Pertemuan II

program latih;
uses crt;
var
jk : char;
umur : integer;
begin
clrscr;
jk := 'L';
write ('Masukan Jenis Kelamin (L/P):');
readln (jk);
write ('Masukan Umur :');
readln (umur);
if (jk = 'L') and (umur >=30) then
begin
writeln (jk);
writeln (umur);
end
else
writeln('SALAH!!');
readln;
end.