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.