Составьте программу на языке паскаль найти значение х и у если х=2а квадрат + b а, y= 2b квадрат+ а

program task31153355; var  x, y, a, b: integer; begin  Write('ВВЕДИТЕ a И b: ');  Readln(a, b);  x := 2*Sqr(a) + b;  y := 2*Sqr(b) + a;  Writeln(x, ' ', y); end.