Помогите перевести алгоритмический язык в вид Паскаля пж​

var

 x, y: integer;

begin

 Read(x);

 x := x * x;

 y := x * x;

 y := y * 5;

 y := 1 + y;

 y := y - x;

 y := y * y;

 Writeln(y)

end.