[lmikle]

Сообщение от ЮркаСал

Все что написано в задаче, я написал, я думаю, что с и d!!!!

тогда:

Код:

procedure TForm1.Button1Click(Sender : TObject);
var
  a, c, d : Integer;
begin
  a := StrToInt(Edit1.Text);
  c := a * a;
  d := c * a;
  Edit2.Text := IntToStr(c);
  Edit3.Text := IntToStr(d);
end;

Но я думаю, что это не то, что нужно.