паскаль
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.
