Отредактируйте программу

[vadiprog]

uses
  SysUtils;
Var
i,b,y: integer;
x,f,a: real;

function pow (x: real;  c: Integer):integer;
var a:real; f:integer;
Begin
a:= x;
f:=c;
if(c<0) then f:=f*(-1);
   for i:=1 to f do a:=a*x;
  if(c<0) then pow:=(-a);
 if(c>0) then pow:=a;
End;

begin
read(x);
read(y);
for i:=-100 to 100 do begin if(pow(y,i-1)<=x) then if(pow(y,i) < x) then writeln(i);
end.

___________
vadiprog, Вы научитесь наконец форматировать свой код?!!!

Запомните, код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
И прошу, е забывайте об этом!

Модератор.

[Alex1991]

в суть не вникал, отредактировал чтобы скомпилилось:

program Project1;

{$APPTYPE CONSOLE}

uses
 SysUtils;
 Var
 i,b,y: integer;
 x,f,a: real;

 function pow (x: real; c: Integer):real;
 var a:real; f,i:integer;
 Begin
 a:= x;
 f:=c;
 if(c<0) then f:=f*(-1);
 for i:=1 to f do a:=a*x;
 if(c<0) then pow:=(-a);
 if(c>0) then pow:=a;
 End;

 begin
 read(x);
 read(y);
 for i:=-100 to 100 do
  begin
  if(pow(y,i-1)<=x) then
    if(pow(y,i) < x) then writeln(i);
  end;
 end.

[Abstraction]

pow(), обычно - возведение в степень. У Вас - категорически не возведение в степень. Это так и надо?

[Alex1991]

Сообщение от Abstraction

pow(), обычно - возведение в степень. У Вас - категорически не возведение в степень. Это так и надо?

pow() - это в с++ а в delphi - power()

[Abstraction]

Сообщение от Alex1991

pow() - это в с++ а в delphi - power()

Угу. Ещё как минимум в JavaScript и наверняка можно добавить ещё десяток языков. Я к тому, что не зная, что от кода требуется, исправлять его довольно сложно.