Написать программу для PASCAL найти полную площадь прямоугольной(прямой) призмы

Площадь призмы равна 2(lw + wh + lh)

program Prizma;

var w, l, h, s: real;

begin

 writeln('Введите ширину');

 read(w);

 writeln('Введите длину');

 read(l);

 writeln('Введите высоту');

 read(h);

 s := 2 * (l * w + w * h + l * h);

 writeln('Площадь призмы: ', s);

end.

Объяснение:

lw + lw + wh + wh + lh + lh = 2(lw + wh + lh)

1)Основные составляющие персонального компьюетра: системный блок и устройства ввода-вывода информации. К устройствам ввода-вывода информации относятся клавиатура, мышь, монитор, принтер, сканер, видеокамера, динамики и прочие подобные устройства.Системный блок состоит из обязательных устройств: материнская плата, жесткий диск, процессор, оперативная память, блок питания, видеокарта, системный динамик. К необязательным составляющим системного блока можно отнести звуковую карту, сетевую карту, floppy, CD и DWD-приводы, картридеры и прочие навороты.

Const
   g:array [1..10] of string = ('Москва','Санкт-Петербург','Новосибирск','Екатеринбург','Нижний Новгород','Казань','Самара','Омск','Челябинск','Ростов-на-Дону');
   n:array [1..10] of longint = (12198,5192,1567,1428,1268,1206,1171,1174,1182,1115);
var
   i,imax,imin:longint;
begin
  imax:=1; imin:=1;
     for i:=1 to 10 do   
          begin     
              if n[i]>n[imax] then imax:=i;        
              if n[i]<n[imin] then imin:=i;   
end;

writeln('Город с наибольшей численностью ',g[imax]);
writeln('Город с наименьшей численностью ',g[imin]);

end.