Привет,помогите с информатикой. Вот программа в паскале:
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 d>600 then
d:=d-x-y
else
d:=d+x-y;
end.
надо вывести d,у меня не получается(