Степени

[Mont1k]

напечатать "столбиком" третьи степени всех чисел от а до 50 ( значение а вводится с клавиатуры, а больше или равно 50)

var i:longint;
a:real;
begin
a:=strtofloat(edit1.Text);
Memo1.Lines.Clear;
for i := 0 to 50 do
if a>0 then i:=i*sqr(i);
Memo1.Lines.Add(IntToStr(i))
end;

Что здесь не правильно подскажите пожалуйста...

[OlegVE]

var i: longint; // Квадратный корень будет целым только для 4, 9, 16, 25...
// a:real; // ??? Если у Вас a не целое, то надо делать чуть-чуть по другому:
//округлить для цикла и вычислить отдельно
a:integer;
// Вы изменяете значение переменной счётчика!!!
aaa:integer;
begin
// a:=strtofloat(edit1.Text);
a:=strtoint(edit1.Text);
Memo1.Lines.Clear;
for i := a to 50 do
// if a>0 then зачем Вам это!!!
begin
// ??????????? i:=i* sqr(aaa);

aaa :=IntToStr(Power(StrToInt(a), 3));
Memo1.Lines.Add(IntToStr(aaa))
end;
end;
Добавка
Исправил ещё. Прошу прощения... столько ошибок..
Добавка 2
Если наделал своих - прошу прощения, надоело править...

[KobolD]

sqr() возвращает квадрат числа, а корень это sqrt()
Попробуй так

var i:int;
 a:int;
 begin
 a:=strtoint(edit1.Text);
 Memo1.Lines.Clear;
 for i := a to 50 
      Memo1.Lines.Add(IntToStr(i*sqr(i)))
 end;

[OlegVE]

Тогда уже так

...
Memo1.Lines.Add(IntToStr(i*i*i))
...

и не забудьте про a:real и a:=strtofloat(edit1.Text); чтобы полностью ответить на начальный вопрос. А также

// Вы изменяете значение переменной счётчика!!!

Я думал здесь появились извинения....