решить задание под номером

Var
 X1,Y1,X2,Y2,X3,Y3:real;
 A,B,C:real;

Begin
Write('X1 = ');ReadLn(X1);
Write('Y1 = ');ReadLn(Y1);
Write('X2 = ');ReadLn(X2);
Write('Y2 = ');ReadLn(Y2);
Write('X3 = ');ReadLn(X3);
Write('Y3 = ');ReadLn(Y3);
A:=sqrt(sqr(X2-X1) + sqr(Y2-Y1) );
B:=sqrt(sqr(X2-X3) + sqr(Y2-Y3) );
C:=sqrt(sqr(X3-X1) + sqr(Y3-Y1) );
if (A<B+C)and(B<A+C)and(C<A+B) then
Begin
WriteLn('Длины сторон равны:');
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
X1:=(A+B+C)/2;
WriteLn('Площадь треугольника равна ',sqrt(X1*(X1-A)*(X1-B)*(X1-C)))
End
else WriteLn('Треугольник не существует')
End.

0.сказать: "введите мне сколько нибудь (или 3) чисел"
1. прочитать число В.
2. присвоить: минимальное_число = В
3.прочитать следующее число С
4. сравнить: если С<минимальное_число то мин_число = С, иначе дальше
5.прочитать следующее число D
6. сравнить, если D<минимальное_число то мин_число = D, иначе дльше
//копипаста это плооохо, только что где то в мире умер котенок =_(((
// поэтому на шагах 5. и 6. надо еще плакать
//тут бы нужен циклик но его рисовать надоть через блок схему а мне влом
// могу лучше прогу написать на питоне))) но тебе это наверняка не надо))
7. попытаться прочитать следующее число и понять что они закончились((
8. вывести минимальное_число
//как-то так)))