Implementation

{$R *.DFM}

procedure fun(t:real; var z,w:real);

begin

z:=sqr(sin(sqrt(abs(t))));

w:=exp(z);

end;

procedureTForm1.Button1Click(Sender: TObject);

begin

edit1.Clear; edit2.Clear; edit3.Clear;

end;

var t,z,w:real;

begin

//Переведення рядка, введеного в Edit1, у число t

t:=StrToFloat(Edit1.Text);

//Звертання до підпрограми fun

fun(t,z,w);

//Переведення числа z у рядок редактора Edit2

Edit2.Text:=FloatToStr(z);

//Переведення числа w у рядок Edit3

Edit3.Text:=FloatToStr(w);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;