program qwerty;
uses crt, graphabc;
var x,y,x0,y0,k:real;
begin
x0:=320;y0:=240;
k:=50;
for x:=-320 to 320 do begin
if x<0 then y:=x*x
else
if (x>=0) and (x<10) then y:=x
else
if x>=10 then y:=1/x
end;
end.

Почему в 7 строчке перед х пишет "ожидался порядковый тип"?

у меня же там 1/х он не может быть integer

я же код уже отправил. просто y вынеси отдельно как real, а остально ставь integer

спасибо

Program qwerty;uses crt, graphabc;var x,x0,y0,k:integer;    y:real;    beginx0:=320;y0:=240;k:=50;for x:= -320 to 320 do beginif x<0 then y:=x*xelse if (x>=0) and (x<10) then y:=xelse if x>=10 then y:=1/xend;end.Вы "счетчик" в real объявили, а он должен быть integer