Запишите на языке паскаль программу, для нахождения площади поверхности прямоугольного параллепипеда. s: =2*(a*b+b*c+a*c! ​

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

Клавиатура должна находиться в 20-30 см от края стола.

Стул или кресло должны обеспечить прямую осанку, при которой спина немного упирается в спинку кресла или стула.

При работе с клавиатурой и мышью руки должны быть согнуты, а локти располагаться на столе или подлокотниках кресла.

Ноги не должны быть согнуты под стул или кресло, а должны быть выпрямлены вперед с упором в твердую поверхность.

Ежечасно делать короткий перерыв в работе с компьютером и делать небольшую разминку для снятия напряжения в суставах и мышцах

var

a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

randomize;

for i:=0 to 9 do begin

for j:= 0 to 9 do begin

a[i,j]:= random(50);

write(a[i,j],' ')

end;

writeln();

end;

s:=0;

for i:=0 to 9 do

if a[i,9-i] mod 3 = 0 then

s:=s+a[i,9-i];

writeln(s)

end.

Объяснение:

var

a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

randomize;

for i:=0 to 9 do begin

for j:= 0 to 9 do begin

a[i,j]:= random(50);

write(a[i,j],' ')

end;

writeln();

end;

s:=0;

for i:=0 to 9 do

if a[i,9-i] mod 3 = 0 then

s:=s+a[i,9-i];

writeln(s)

end.