[Rayne]

x(в квадрате) + x(в квадрате) \ y = ?

var := x*x*(1 + 1/y);

боюсь спорить с вегудом, но, думаю, на экзамене понадобится примерно такая запись
var (имя переменной) := (sqr (x) + sqr (x)) div y;

то есть сама программа будет выглядеть

var
x,y,z:integer;
begin
z:=(sqr(x) + sqr(x)) div y;
readln;
end.

если я ничего не забыл