Составить программу на языке pascal для решения следующей : дана строка. заменить в этой строке все буквы «о» на буквы «а». если букв «о» не встречено в строке, то вывести на экран сообщение «нет буквы «о»

1 одноногий капитан (1 голова - 1 нога); 1 кок (1 голова - 2 ноги);   7 матросов (7 голов -  14 ног);   6 кошек (6 голов - 24 ноги).

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

800*600*24*4/8=5760000 байт=5625 кбайт

скор передачи=объём файла/время,отсюда  объём файла =скорость*время,т.е. 512000 * 16=8192000 бит,затем преводим все в кбайты: 8192000/8/1024=1000 кбайт