Program Record

  Program Permainan_huruf;
    uses crt;

    var
    nama : string;
    I : byte;

    begin
    clrscr;
    write(' tulis nama anda dengan baik ! '); readln(nama);
    if (length (nama) >= 2 ) and (length(nama) < 4) then
    writeln(' anda orangnya loyal ');
     if (length (nama) >= 4 ) and (length(nama) < 8) then
    writeln(' anda orangnya manis ');
   if (length (nama) >= 8 ) and (length(nama) < 20) then
    writeln(' anda orangnya cantik ');
repeat until keypressed;
end.

Categories: DDPK