Ответ:

pascal

Объяснение:

1)

var x, y: real;

begin

 Write('Введите переменные x и y: '); ReadLn(x, y);

 WriteLn('x2 = ', sqr(x):1:2, ' y2 = ', sqr(y):1:2);

 WriteLn('x3 = ', sqr(x)*x:1:2, ' y3 = ', sqr(y)*y:1:2);

 WriteLn('x4 = ', sqr(sqr(x)):1:2, ' y4 = ', sqr(sqr(y)):1:2);

 WriteLn('x5 = ', exp(5*ln(x)):1:2, ' y5 = ', exp(5*ln(y)):1:2);

end.

2)

var ves: real;

begin

 Write('Введите вес в граммах: '); ReadLn(ves);

 WriteLn(ves, ' гр. = ', ves/1000:1:3, ' кг. = ', ves/1000000:1:6, ' тонн');

end.