проверьте, пожалуйста.
программа считает по
схеме горнерадолжна быть легко перенастраема на любую степень многочлена.
заодно проверяет правильные ли данные введены (параменты и точка)
и предлагает повторить
код
program p824a(input,output);
{$I-}
const raz=4;
var i,j,n:integer;
mas:array[0..raz]of real;
sum,t,k: real;
c:char;
rep:boolean;
begin
rep:=true;
while rep do begin
writeln('enter parametri and tochky t');
rep:=true;
n:=0;
while n<=raz+1 do begin
read(k);
if IOResult<>0 then begin
writeln('wrong enter');
n:=raz+3;
end
else begin
if n=raz+1 then t:=k
else mas[n]:=k;
n:=n+1;
end;
end;
if n<>raz+3 then begin
sum:=mas[raz];
for i:=raz downto 1 do
begin
sum:=(sum*t)+mas[i-1];
end;
writeln('znachenie mnogochlena: ',sum:0:4);
end;
readln;
writeln('repeat? "n" if you dont want, over letter, if you want');
readln(c);
if c='n' then rep:=false;
end;
end.