Подскажите решение, ( в программе 1с)

за многие годы узник замка иф проделал в стене прямоугольное отверстие
размером d×e. замок иф сложен из кирпичей, размером a×b×c. определите, сможет
ли узник выбрасывать кирпичи в море через это отверстие (очевидно, стороны
кирпича должны быть параллельны сторонам отверстия).

в программе 1с нужно выполнить решение

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!1)

begin

 var y := ReadReal;

 var z := y ** 10;

 var x := z * (1 + z + Sqr(z));

 x.Println;

end.

Пример

1.543

453619.091174671

2)

procedure Per(a, b: real; var p: real);

begin

 p := a * b

end;

begin

 var (x, y) := ReadReal2;

 var Периметр: real;

 Per(x, y, Периметр);

 Периметр.Println;

 var (n, m) := ReadReal2;

 Per(n, m, Периметр);

 Периметр.Println;

 var (c, d) := ReadReal2;

 Per(c, d, Периметр);

 Периметр.Println

end.

Пример

6 13

78

3.5 8.032

28.112

14 23.002

322.028

Pascal / Delphi

1) Program zadanie_1;

var ss: string; i: integer; flag: boolean;

begin

write('Введите число: ');

readln(ss);

for i:=1 to length(ss) do

if (ss[i]='1') then begin flag:=true; break; end else flag:=false;

if (flag=true) then writeln('Число содержит 1') else writeln('Число не содержит 1');

readln;

end.

2) Program zadanie_2;

var n,c,c1,c2,c3: integer;

begin

write('Введите число: ');

readln(n);

c1:=n div 100;

c2:=n mod 100 div 10;

c3:=n mod 100 mod 10;

c:=c3*100+c2*10+c1;

writeln('Новое число: ',c);

readln;

end.