Нужна с тематической (программа Lazarus)

А,б или что ........
.

Http://inflib.ru/index2.php?id=1128&Itemid=25&option=com_content&page=0&pop=1&task=view

Var  a,b,c,mx: integer;  p: real;begin  readln (a,b,c);  mx:=a;  if mx<b then mx:=b;  if mx<c then mx:=c;  p:=(a*b*c)/mx;  write(p);end.  

1)См рисунок,он из интернета,ибо я могу нарисовать,но будет криво(
2) путь от диска C:/ до файла. К примеру, файл информатика.docx в папке "Школа" на рабочем столе будет иметь такой путь: C:Users\%username%DesktopШколаинформатика.docx. Это на виндовс
3)
 C:Участники
 C:КонференцияУчастники
 C:КонференцияРегионыУчастники
 C:КонференцияРегионыСпискиУчастники