Задача на паскале ЗА Дан файл. Преобразовать его, удалив из каждой строки слова,
встречающиеся более двух раз, если таких строк нет, то вывести об этом
сообщение и скопировать этот файл в другой, дописав в его конец выведенное
сообщение.

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.

строка, рот, ройка, ретро, рост, койка, река,тройка,тропа,река.

program _1_2; uses crt; var  dlina, shirina, vysota: real; begin  clrscr;   textcolor(14);   writeln('вычисление объёма параллелепипеда.');   writeln('введите исходные данные: ');   write('длина (см) -> ');   readln(dlina);   write('ширина (см) -> ');   readln(shirina);   write('высота -> ');   readln(vysota);   writeln('объём: ',(dlina*shirina*vysota): 7: 2);   repeat  until keypressed; end.