直角三角形的画法(画出来)

如果不需要很严格的话用三角尺就行，
如果要标准点的，得先画圆，然后以圆的直径作为三角形的的斜边，在圆弧上任取一点，与直径两端点相连即可得到一个直角三角形。
1作一平角，再作平角的平分线，得到直角即可作出直角三角形。
2作一圆，再作出一条直径，在圆周上任取一点（直径端点除外），与直径端点连结，即得直角三角形（因直径所对的圆周角为直角）。
3利用勾股定理逆定理，即找勾股数，先画一线段=a,然后利用尺规，以3a,4a,5a为边作三角形，即为直角三角形

我只能按照我的理解来了，如有错误，请各位指出！
第一种
输入4
输出：




程序：
program t1;
var
i,j,n:longint;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to i do
write('');
writeln;
end;
readln;{看结果的，可以不用，就是直接些，因为可以用alt+f5}
end
第二种：
输入4
输出：




{图像可以自己复制到记事本上看}
程序：
program t1;
var
i,j,n:longint;
begin
readln(n);
for i:=1 to n do
begin
write(' ':n+1-i);
for j:=1 to i do
write(' ');
writeln;
end;
readln;
end

---