По представленной блок-схеме составьте программу вычисления

[Рустам26]

По представленной блок-схеме составьте программу вычисления функции у при заданном с клавиатуры значении х

подскажите где и что исправить (добавить)

profram xy;
var x,y:real;
begin
write('Введите х=');
readln(x);
if x<=-50 then y:=7*x*x else (x>-50) and (x<=50);
if (x>-50) and (x<=50) then y:=abs(3x) else y:=2*x*x*x+1;
writeln('y=',y)
readln;
readln;
end.

[bormant]

Код: Выделить всё

...
if x <= -50 then y := 7 * x * x
else if x <= 50 then y := abs(3 * x)
else y := 2 * x * x * x + 1;
...

Пропущена ";" после writeln(). Один readln в конце лишний.

[Рустам26]

Код: Выделить всё

...
if x <= -50 then y := 7 * x * x
else if x <= 50 then y := abs(3 * x)
else y := 2 * x * x * x + 1;
...

Пропущена ";" после writeln(). Один readln в конце лишний.

Большое спасибо)))))