Паскаль

[Twisti]

1. написать программу, вычисляющую объем и площадь поверхности параллелепипеда. операцию вычисления объема и площади поверхности параллелепипеда оформить в виде подпрограммы

2. умножить все элементы первой строки матрицы на максимальный элемент главной диагонали матрицы

[Mad_Cat]

//1
var x,y,z,P,O:Real;
procedure SV(a,b,h:real;var S,V:real;);
begin
s:=2*(a*b+a*h+b*h);
V:=a*b*h;
end;
begin
read(x,y,z);
SV(x,y,z,P,O);
Writeln(P);
writeln(O);
end.

//2
max:=a[1,1];
for i:=2 to n do
if a[i,i]>max] then max:=a[i,i];
for i:=1 to n do
a[1,i]:=a[1,i]*max;

[Twisti]

а можно вторую полностью расписать, у меня что то не получается...

[Mad_Cat]

а можно вторую полностью расписать, у меня что то не получается..

покажи что не получается7

[Twisti]

я не могу понять куда вообще надо вставить это условие...