Надо составить этапы моделирование для любой модели.

Var a,b,c: real;
BEGIN
write('Введите длину стороны a: '); readln(a);'
write('Введите длину стороны b: '); readln(b);
write('Введите длину стороны c: '); readln(c);
if (a+b <=c) or (b+c <= a) or (c+a <= b) then writeln('Треугольника с такими сторонами не существует! ')
else begin
if (sqr(a)+sqr(b)>sqr(c))and(sqr(b)+sqr(c)>sqr(a))and(sqr(c)+sqr(a)>sqr(b)) then writeln('Треугольник остроугольный')
else if (sqr(a)+sqr(b)=sqr(c))and(sqr(b)+sqr(c)=sqr(a))and(sqr(c)+sqr(a)=sqr(b)) then writeln('Треугольник прямоугольный')
else writeln('Треугольник тупоугольный');
end;
END.
Объяснение,
Если a,b,c длины сторон теугольника, то a+b>c, b+c>a, c+a>b
По теореме косинусов a^2+b^2-2abcos(c)=c^2? отсюда если угол C < 90? то cos(c)>0 поэтому a^2+b^2>c^2

Сделай таблицу
<TABLE BORDER=0> Если хочешь с границами 1
<TR>
<TD> <img src="название 1 фото.расширение"> </TD>
<TD> <img src="название 2 фото.расширение"> </TD>
<TD> <img src="название 3 фото.расширение"> </TD>
<TD> <img src="название 4 фото.расширение"> </TD>
<TD> <img src="название 5 фото.расширение"> </TD>
</TR>
<TR>
<TD> <img src="название 6 фото.расширение"> </TD>
<TD> <img src="название 7 фото.расширение"> </TD>
<TD> <img src="название 8 фото.расширение"> </TD>
<TD> <img src="название 9 фото.расширение"> </TD>
<TD> <img src="название 10 фото.расширение"> </TD>
</TR>
</TABLE>
Тег <TR> начало строки,</TR> конец строки,
<TD> ячейка,</TD> конц ячейки