8 lines
144 B
ObjectPascal
8 lines
144 B
ObjectPascal
begin
|
|
foreach var s in ReadLines('freqs.txt') do
|
|
begin
|
|
var ss := s.ToWords;
|
|
if ss[3] = 'verb' then
|
|
writeln(ss[2]);
|
|
end;
|
|
end. |