// 1.<span>
var</span>
a,b,c: real;
begin
writeln('Введите два катета a,b: ');
readln(a,b);
writeln('Введите гипотенузу c: ');
readln(c);
if sqr(c) = sqr(a) + sqr(b) then writeln('Треугольник прямоугольный.')
else writeln('Треугольник не прямоугольный.');
<span>end.
<em>// 2.
</em>
var
A: array [1..100] of integer;
x,i,n: integer;
begin
writeln('Введите кол-во чисел 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);
<span>end.</span></span>
var i:real;
begin
i:=4.4;
while i<6.5 do begin
writeln(i);
i:=i+0.2;
end;
end.
<span>Правильный ответ Стриж
</span>
<h3><u>Ответ</u>: олимп, лимон, леска.</h3>
<em>* Подробнее в приложении.</em>