Pascal.
Дан текстовый файл содержащий несколько строк.
Вывести на экран содержимое файла. Если в выводимой строке содержится слово "яблоко" - вывести напротив нее цифру 1, если слово "фрукт" - цифру 2.

Var   f:text;   S:string;   C:char;   i:integer;BeginAssign(f,'TextFile.txt');Reset(f);i:=1;RepeatWhile Not EOLN(f) do   Begin   Read(f,C);   S:=S+C;   End;Write(S);if Pos('яблоко',LowerCase(S))<>0 then Write(' 1');if Pos('фрукт',LowerCase(S))<>0 then Write(' 2');S:='';if Not EOF(f) then   Begin   Read(f,C);   Write(C);   End;Until EOF(f);Close(f);End.Примечание: для работы программы необходимо, чтобы данный файл находился в одной папке с программой: