Var a,b,c,x:real;
<span>begin </span>
<span>writeln('Введите a,b,c,x'); </span>
<span>read(a,b,c,x); </span>
<span>if (a<x) and (b<x) and (c<x) then writeln('Кирпич пройдет') else </span>
<span>writeln('Кирпич не пройдет'); </span>
<span>end.</span>
Графический файл.Величина:Тип,Значение:Рисунок ВМР
Большой файл.Величина: Размер,Значение:35 мб
begin
var n := ReadInteger();
var a := MatrGen(n, n, (i, j)-> (2 shl i) * Ord(j >= i));
a.Println;
end.