Составьте программу на языке паскаль для вычесления значений следующих выражений:1) D=Y^15
2)K=X^19
3)L=(0.5+1/T)^2+1.8T.

Var   Y,X,T:real;BeginWrite('Y = ');ReadLn(Y);Write('X = ');ReadLn(X);Write('T = ');ReadLn(T);WriteLn('D = ',Power(Y,15));WriteLn('K = ',Power(X,19));WriteLn('L = ',Sqr(0.5+1/T)+1.8*T );End.