Объяснение:
program a1;
var a, b, s:integer;
begin
readln(a, b);
if a>0
then s:=a+b
else s:=a-b;
writeln(s);
end.
Объяснение:
program a1;
var a, b, s:integer;
begin
readln(a, b);
if a>0
then s:=a+b
else s:=a-b;
writeln(s);
end.