I Разгадай ребус
Будь внимателен! Здесь
нужно заменить сразу
несколько букв в слове
«плот» и убрать много
всего из слова
<TepMOC>​

Будет слово мост

Объяснение:

Потому что у слова термос берем большие буквы (мос) и последнюю букву слова плот

const

  a: array[1..6]of longint=(7,4,10,6,5,3);

var

  i: longint;

begin

for i: =1 to 6 do  write(9.8*a[i]*1200,' ');

writeln;

end.

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.