Задание

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

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

program treug2;

var a, b, c, P: real;

procedure s (x1, y1, x2, y2: real; var n: real);

begin

n: = sqrt (sqr (x2− x1) + sqr (y2− y1))

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.

Варианты ответов:

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

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

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

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

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

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

вызов модуля

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