Объяснение:
1.
var
a,b:real;
begin
read(a);
read(b);
writeln(a-b);
writeln(a+b);
writeln(a*b);
end.
2.
if a>b then writeln(a-b) else writeln(b-a);
Объяснение:
1.
var
a,b:real;
begin
read(a);
read(b);
writeln(a-b);
writeln(a+b);
writeln(a*b);
end.
2.
var
a,b:real;
begin
read(a);
read(b);
if a>b then writeln(a-b) else writeln(b-a);
end.