Question

написать на языке паскаль программу для вычисления выражения s=(2х+у)*(х-у) протестировать ее для х=2,у=1 х=3,у=0 х=0,у=-2

Answer 1

var
x, y, s: integer;
begin
readln(x, y);
s := (2*x + y) * (x-y);
writeln(s);
end.