Написать программу на языке Pascal.

такой адресс получается

var x1, x2, x3, y1, y2, y3, p: real;

function len(x1, y1, x2, y2: real): real; begin len : = sqrt(sqr(x2 - x1) + sqr(y2 - y1)); end;

begin readln(x1, y1, x2, y2, x3, y3); p : = len(x1, y1, x2, y2) + len(x1, y1, x3, y3) + len(x2, y2, x3, y3); writeln(p: 8: 3); end.

обьем вини изначальный

прирост от меда

прирост от сгущенки

время реализации прироста

время худенья

радиус дверей

1- 2 брата близнеца, один из них возвращается назад

2 - плывет папа, возвращается другой брат

3 -    2 брата близнеца, один из них возвращается назад

4 - мама, возвращается другой брат

5 - оба брата близнеца