Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var i:word;
- c:string;
- mas : array[1..100] of string;
- begin
- i:=1;
- assign(input, 'input.txt'); reset(input);
- while (not eof) do
- begin
- readln(c);
- if((pos('ova',c)=length(c)-2)or((pos('ov',c)=length(c)-1)))
- then begin
- mas[i]:=c; inc(i);
- end;
- end;
- end.
Add Comment
Please, Sign In to add comment