Привет,помогите с информатикой. Вот программа в паскале:var x,y:integer;d:real;const

Привет,помогите с информатикой. Вот программка в паскале:
var x,y:integer;d:real;
const PI=3.14;
begin
randomize;
x :=random(1,679);
y :=random(1,345);
d:=PI*x*y;
if dgt;600 then
d:=d-x-y
else
d:=d+x-y;
end.
надобно вывести d,у меня не выходит(