program z;
var a, b, c:Integer;
begin
read(a, b);
c:= a*(2*b-a);
write(c);
read();
end.
Объяснение:
сначала нужно ввести два числа в одну строку через пробел(а и b), потом нажать ентер
