Дано дерево каталогов. назовите полное имя файла doc3

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

a = sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));

b = sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));

c = sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));

writeln("периметр = ",a+b+c);

s = {формула герона}