Привет,помогите с информатикой. Вот программа в паскале:

[email protected] в категроии Разное, вопрос открыт 11.06.2018 в 23:12

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,у меня не получается(