Question

Нужно срочно для ABS Pascal

Answer 1

var x,y: integer;

begin

Read(x);

if x<6 then y:=x

else y:=7*sqr(x);

Write(y);

end.

var x,y: integer;

begin

Read(x);

if x<-7 then y:=x+5

else if x>3 then y:=sqr(x)

else y:=7-x;

Write(y);

end.