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

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.