Question

Задачи из файла выполнить в паскаль

Answer 1

program fun;

var x, y: Integer;

begin

   Readln(x);

   y := x;

   Writeln((3*x - y) * (9*y - x);

end.