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

program fun;

var x, y: Integer;

begin

Readln(x);

y := x;

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

end.