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.
|