1) составьте программу для вычисление значения выражения x=y^10+y^20+y^30 2)составьте программу содержащая в себе процедуру для вычисления перимитра прямоугольника ab. в основной программе необходимо примененить эту процедуру к 3различным прямоугольниками со сторлнами xy, nm, cd

begin

 var y := ReadReal;

 var z := y ** 10;

 var x := z * (1 + z + Sqr(z));

 x.Println;

end.

1.543

453619.091174671

procedure Per(a, b: real; var p: real);

begin

 p := a * b

end;

begin

 var (x, y) := ReadReal2;

 var Периметр: real;

 Per(x, y, Периметр);

 Периметр.Println;

 var (n, m) := ReadReal2;

 Per(n, m, Периметр);

 Периметр.Println;

 var (c, d) := ReadReal2;

 Per(c, d, Периметр);

 Периметр.Println

end.

6 13

78

3.5 8.032

28.112

14 23.002

322.028