Question

написать программу в паскале
Вычислите значение выражения (a+4b)(a−3b)+a2.

Answer 1

program zzz;
var a,b,c:integer;
begin
  readln(a,b);
  c := (a+4*b)*(a-3*b)+a*2;
  writeln(c);
end.