Var s:string;
ar:array[1..10] of integer;
f:text;
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
assign(f,'text.txt');
rewrite(f);
for i:=1 to 10 do
begin;
str(ar[i],s);
write(f,s,' ');
end;
close(f);
<span>end.</span>
<span>for i:=1 to 5
оно больше 5 и не может быть </span>
1) Рисуешь катет
2) с одной стороны катета откладываешь прямой угол
3) с другой стороны катета откладываешь данный острый угол
4) Проводишь прямые под отложенными углами
5) Эти прямые пересекутся в 3ей вершине треугольника.
//PascalABC.NET v3.3 1633
begin
var path:='C:\file.txt'; // вместо C:\file.txt напечатать путь до своего файла
var text:=ReadAllText(path);
writeln(text);
end.