P периметрін және үш жақты үшбұрыштың жағында S аймағын есептейтін кіші кіші үшбұрышты (a, P, S) сипаттаңыз (a - кіріс, P және S - шығыс параметрлері, барлық параметрлер нақты). Осы процедураны пайдаланып, осы үш жақты үшбұрыштың периметрлері мен аумақтарын осы жағынан табыңыз.​

Эту задачу уже решали здесь. Но, если трудно поискать, то вот программа:
var a,b,c,d,x,y,z,y1,z1,y2,z2,nod:integer;
begin
writeln('1-я дробь (числитель и знаменатель):');
readln(a,b);
writeln('2-я дробь (числитель и знаменатель):');
readln(c,d);
y1:=a*d+c*b; y2:=y1;
z1:=b*d; z2:=z1;
while (y2>0)and(z2>0) do
 if y2>z2 then y2:=y2 mod z2 else z2:=z2 mod y2;
nod:=y2+z2;
y1:=y1 div nod; 
z:=z1 div nod;
x:=y1 div z;
y:=y1 mod z;
if x>0 then writeln(x,' ',y,'/',z) else writeln(y,'/',z);
end.

Пример:
1-я дробь (числитель и знаменатель):
3 4
2-я дробь (числитель и знаменатель):
5 6
1 7/12

Постарайтесь ни чего здесь не изменить, а при выходе лучше нажмите /Отмена/).

3. Закрываем  PowerPoint 2010, открываем Проводник.В адресную строку Проводника вставляем скопированный ранее путь, жмем Enter. Находим папку с нужной презентацией. Название папки и презентации совпадает.

4. В папке должно быть два файлика. Нам нужен с длинным название.  Запускаем. Проверяем, появился ли потерянный материал. Если всё удачно, жмем Восстановить.

5. Сохраняем презентацию так, как положено её сохранить.Второй раз этот трюк не сработает. Папка с автосохранением будет очищена автоматически.