Ерунда, а не задача.... трижды одно и то же разными словами.
Var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln ('Существует')
else writeln ('Не существует');
end.
I = 450 бит
k = 150 символов
N – ?
N = 2i (степень)
I = ki
i = I/k
i=450/150=3
N=2³=8
Ответ: 8
begin
var a := MatrGen(10, 10, (i,j) -> Ln(Abs((i+1)*(j+1))));
a.Println(7, 4)
end.