Program Record

Program hitung_kata;

uses wincrt;

var

kalimat : string;

s : integer;

begin

write(' Tuliskan Kalimat Anda : '); readln(kalimat);

s := length(kalimat);

writeln(' Jumlah Katanya Adalah ',s);

end.

Categories: DDPK