Определить,являются ли подобными 2 треугольника,если известны длины их катетов.Пожалуйста помогите составить алгоритм и программу Pascal.

Вроде такvar a, b, c, a1, b1, c1: real;beginwrite('Введите a, b, c >>');readln(a, b, c);write('Введите a1, b1, c1 >>');readln(a1, b1, c1);if (a/a1 = b/b1) and (b/b1 = c/c1) thenwriteln('Треугольники подобны') elsewriteln('Треугольники не подобны');end.