Номер 6 и 7. Пожалуйста

Question

Номер 6 и 7. Пожалуйста

---

Answer 1

Номер 6.
S=91
i=5
Номер 7.
Program ps;var a,b,c,h,p:integer;s:real;Beginwriteln('введите а'); readln (a);writeln('введите b'); readln (b);writeln('введите с'); readln (c);writeln('введите h'); readln(h);p:=a+b+c;s:=(a*h)/2;writeln('P=',p);writeln('S=',s);end.

Comments

Program ps;
var a,b,c,h,p:integer;
s:real;
Begin
writeln('введите а'); readln (a);
writeln('введите b'); readln (b);
writeln('введите с'); readln (c);
writeln('введите h'); readln(h);
p:=a+b+c;
s:=(a*h)/2;
writeln('P=',p);
writeln('S=',s);
end.

---

Спасибо