исправьте пожалуйста программку...чтоб...РАБОТАЛА
(
заранее благодарна
задание: даны действительные числа x, y. Получить z=t(1.2,y)+t(y,x)-t(2x-1,xy), где t(a,b)=sin(в степени2)а+е(в степени2а)+е(в степени2b)....(с использованием процедуры)..
program;
uses crt;
var
x,y:unteger;
z,t:real;
procedure t(a,b)(a,b,e:integer; var t:real);
begin
t(a,b):=(sin a*sin a)+(exp(2*a)*ln(e))+(exp(2*b)*ln(e));
end;
begin
clrsgr;
writeln('vvedite x,y');
readln(x,y);
z:=t*(1.2,y)+t*(y,x)-t*(2*x-1,x*y);
writeln('z=',z);
readln;
end.