Двойное отрицание же. Просто D.
program raf105;
var n,a,b,s,sum,i:integer;
begin
write('Введите количество комнат: ');
readln(n);
for i:=1 to n do
begin
writeln;
writeln('Комната №',i);
write('Длина: ');
readln(a);
write('Ширина: ');
readln(b);
s:= a*b;
writeln('Площадь: ',s,' м²');
sum:= sum+s;
end;
writeln;
writeln('Общая сумма площадей всех комнат: ',sum,' м²');
end.
<u><em>Язык программирования PascalABC</em></u>
Смотри вложение. там еще карта карно есть, если надо
Операционная система или ОС - это п<span>акет программ, управляющий работой компьютера и обеспечивающий взаимодействие между человеком и компьютером.</span>