var
a, b, c, d: integer;
begin
readln(a);
readln(b);
a := a * 10;
b := b * 4;
writeln('a=', a, 'b=', b);
c := a+b;
d := a-b;
writeln('c=', c, 'd=', d);
end.
Объяснение:
