Разработать алгоритм решения уравнений:

паскаль

1)var x,y :integer;

begin

readln(x);

if x<=0 then begin

y:=x*x;

writeln(y);

end else if x<4 then begin

y:=2*x;

writeln(y);

end else writeln('значение x не удовлетворяет условию');

end.

2)var a,b,y :integer;

begin

readln(a);

readln(b);

if a=1 then begin

y:=a+b;

end  else  

y:=a-b;

writeln(y);

end.