1 задача: Данытри положительных числа a, b, c. Проверить, могут ли они быть сторонами…

// 1.vara,b,c: real; beginwriteln ('Введите два катета a,b: '); readln (a,b); writeln ('Введите гипотенузу c: '); readln (c); if sqr (c)=sqr (a)+sqr (b) then writeln ('Треугольник прямоугольный.') else writeln ('Треугольник не прямоугольный.'); end.// 2.varA: array [1… 100] of integer; x,i,n: integer; beginwriteln ('Введите кол-во чисел N: '); readln (n); writeln ('Введите числа: '); for i: =1 to n do readln (A[i]); writeln ('Вы ввели: '); for i: =1 to n do write (A[i]: 4); writeln; for i: =1 to n do if A[i] > -1 then x: =x+1; writeln ('Среди них положительных: ',x); end.