Program Record

Program Hitung_kata;
uses crt;
var
kalimat : string;
s : integer;

begin
write(' Kalimat anda : '); readln(kalimat);
s := length(kalimat);
writeln(' Jumlah kata Adalah ', s);
end.

Categories: DDPK