Program Record

program Permainan_huruf;

uses wincrt;

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 Royal');

if (length(nama) >= 4 ) and ( length(nama) <8 ) then

writeln(' anda orangnya praktis');

if (length(nama) >= 8 ) and ( length(nama) <20 ) then

writeln(' anda orangnya pelit');

repeat until keypressed;

end.

Categories: DDPK