Напишите программу Pascal в ЦИКЛИЧЕСКОМ алгоритме.
Задача:Определить,являются ли подобными 2 треугольника,если известны длины всех 3-х сторон каждого треугольника.

var a:array[1..2,1..3] of integer;i,i1,i2,k:integer;z:real;beginwriteln('Vvedite storoni treugolnikov');for i1:=1 to 2 dofor i2:=1 to 3 doread(a[i1,i2]);for i1:=1 to 3 dofor i2:=1 to 3 dobeginif  a[1,i1]>a[1,i2] thenbegink:=a[1,i2];a[1,i2]:=a[1,i1];a[1,i1]:=k;end;if  a[2,i1]>a[2,i2] thenbegink:=a[2,i2];a[2,i2]:=a[2,i1];a[2,i1]:=k;end;end;z:=a[1,1]/a[2,1];for i2:=1 to 3 doif a[1,i2]/a[2,i2]=z then i:=i+1;if i=3 then writeln('da') else writeln('net');end.