Ответ,А )с заданными условиями продолжение работ
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>
Текстовая (несмотря на то, что тут только дата и два числа) и графическая.
Var
a, b: integer;
x, y, z, t: integer;
begin
{2}
Readln(a);
Writeln(Sign(a) * abs(a + 3));
{3}
Readln(a, b);
if a > b then a := b;
Writeln(a);
{4}
Readln(x, y, z);
if (x > y) and (y > z) then t := 5
else t := -1;
x := x * t;
y := y * t;
z := z * t;
Writeln(x, ' ', y, ' ', z)
end.