Подпиши элементы программы.

(Перенесиправильные ответы в нужные ячейки*.)*

| program treug\(2\); | |
| --- | --- |
| var a, b, c, P: real; | |
| procedure s (x\(1\), y\(1\), x\(2\), y\(2\): real; var n: real); | |
| begin
  n: \(=\) sqrt (sqr (x\(2\)\(-\) x\(1\)) \(+\) sqr (y\(2\)\(-\) y\(1\)))
end; | |
| begin
  s(\(1\), \(2\), \(1\), \(6\), a);
  s(\(1\), \(6\), \(5\), \(2\), b);
  s(\(5\), \(2\), \(1\), \(2\), c);
  P: \(=\) a \(+\) b \(+\) c;
  writeln ('Периметр треугольника \(=\) ',P:\(2\):\(2\)) | |
| end. | |
Варианты ответов:

конец программы

тело процедуры

раздел описания переменных

описание процедуры

заголовок программы

очистка экрана

вызов модуля

основная программа