Program sonade_arv;
uses crt;
const
tyhik=' ';
koma=',';
punkt='.';
loputunnus='*';
var
loendaja:integer;
mark:char;
sisend:text;
begin
loendaja:=0;
assign(sisend,'tekst.txt');
reset(sisend);
while not eof (sisend) do
begin
repeat
read(sisend, mark);
IF (mark = tyhik) OR (mark = koma) THEN
     inc (loendaja);
     until mark = loputunnus;
     writeln;
     writeln('Lauses on ',loendaja + 2, ' sona.');
readln;
end;
close(sisend);
end.