1.составьте два сложных высказывания, одно из которых в любой ситуации всегда будет ложным, а другое истинным. а = на улице светит солнце, в = на улице дождь, с = на улице пасмурная погода, d = на улице идет снег. 2. переведите сложное высказывание (а v в) → с на язык.

1. На улице пасмурная погода и на улице дождь. - всегда истино, потому что пасмурная погода всегда с дождем.
   На улице пасмурная погода и на улице светит солнце. - всегда ложь, солнца при пасмурное погоде нет!
2. (Если на улице сыро или на улице мокро), то я пойду гулять. 

VAR
   ans: Real;
   n, i, j, kol: Integer;
   a: Array of Array of Real;
BEGIN
   Read(n); SetLength(a, n+1);
   For i := 1 to n do SetLength(a[i], n+1);

   For i:= 1 to n do 
      For j := 1 to n do Read(a[i][j]);

   For i := 1 to n do
      If (a[i][i] > 0) then begin Inc(kol); ans := ans + a[i][i]; End;

   If (kol > 0) then begin Writeln('Ср. ар. с гл. диагонали = ', ans / kol); kol := 0;ans := 0; End
   Else Writeln('Элементов > 0 на гл. диагонали - нет !');

   For i := 1 to n do
      If (a[i][n-i+1] > 0) then begin Inc(kol); ans := ans + a[i][n-i+1]; End;

   If (kol > 0) then Writeln('Ср. ар. с поб. диагонали = ', ans / kol)
   Else Writeln('Элементов > 0 на поб. диагонали - нет !');
END.

Ну, если уж нужна программа на русском (как вы говорите), то вот она (это для системы Кумир):

алг

нач

вещ д, ш, в, пп, пер, пс, ок, по;

вывод "Расчёт параметров комнаты:", нс

вывод "Введите длину комнаты: д= "

ввод д

вывод "Введите ширину комнаты: ш= "

ввод ш

вывод "Введите высоту комнаты: в= "

ввод в

пп := д*ш

пер := (д+ш)*2

пс := пер*в

ок := пп*в

по := пп*2+пс

вывод нс, "Площадь пола= ", пп , нс

вывод "Периметр комнаты= ", пер , нс

вывод "Площадь стен= ", пс , нс

вывод "Объём комнаты= ", ок , нс

вывод "Площадь общей поверхности комнаты= ", по , нс

кон

Скрин внизу- это то, что программа выводит на экран.