Что делает программа ,и ещё нужно составить условие к задаче?
program two;
var a: array [1..5] of integer;
p, max,j,i : integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(15)-7;
write(a[i]:3);
end;
writeln;
max:=a[1]*a[2];
for i:=1 to 4 do
for j:=i+1 to 5 do
begin
p:=a[i]*a[j];
if p>max then max:=p;
end;
for i:=1 to 4 do
for j:=i+1 to 5 do
begin
if a[i]*a[j]=max then write(i:3,j:3);
end;
END.

Если ввести X или Y значительно больше чем Z то программа на втором или тертьем условии выдаст false и закончит свою работу ничего не написав. Например: если указать X = 10 , Y = 2, Z = 3; то на первом условии будет true, потому что 10 +2 > 3 , но на третьем условии выдаст false потому что 2+3 < 10 но так как ничего не прописано на этот случай программа просто закончит свою работу.
Что бы исправить этот баг необходимо все условия свести в одно: 
if ((x + y > z)and (x + z > y) and (y + z > x) ) then 
   writeln('треугольник построить можно')
else  
 writeln('треугольник построить нельзя');
end.

Это решение так же является ответом на 3-й вопрос.

Начнём с того, чтобы создавать презентацию в MSPowerPoint, необходимо создать слайды во вкладке "Главное" где в левом верхнем углу будет окошко создания слайда, где можно также выбрать шаблон желаемого слайда (титульный),Далее создав определённое количество слайдов мы можем приступить к работе с ними (Программа PowerPoint Обладает широкимфункционалом визуальных функций, чтобы привлекать внимание зрителя), мы можем вставить: звук,картинки,диаграммы,таблицы,видеоклипы и т.д.( и впоследствии настраивать их:воспроизведение,отображение)Можно настроит задний фон для слайдов(можно выбрать из списка шаблонов), и их анимацию для каждого по отдельности(это придаст интереса при просмотре)