Лабораторная работа 8. Упражнение 3

Пример программы

procedure TForm1.Button1Click(Sender: TObject);

const

    W = 0;

    D = 2;

var

    a, s : double;

begin

    a := StrToFloat(Edit1.Text);

    s := a * a;

    Label3.Caption := FloatToStrF(s, ffFixed, W, D);

end;