Составить блок схему . Даны 2 числа найти наименьшее из них

// PascalABC.NET 3.0, сборка 1076
type
  Point=record
  x,y:real
  end;
  Line=record
  A,B:Point
  end;
  Triangle=record
  A,B,C:Point;
  sa,sb,sc:real; { длины сторон }
  end;

procedure GetPoint(PointName:char; var M:Point);
begin
  Write('Введите координаты точки ',PointName,'(x,y): ');
  Read(M.x,M.y)
end;

function LineLength(A,B:Point):real;
begin
  LineLength:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;
 
procedure CreateTriangle(var T:Triangle; var l:boolean);
begin
  With T do begin
    GetPoint('A',A);
    GetPoint('B',B);
    GetPoint('C',C);
    sa:=LineLength(B,C);
    sb:=LineLength(A,C);
    sc:=LineLength(A,B);
    l:=(sa+sb>sc) and (sa+sc>sb) and (sb+sc>sa)
  end
end;

function TriangleIsLikes(T1,T2:Triangle):boolean;
var
  k1,k2,k3:real;
begin
  k1:=T1.sa/T2.sa; k2:=T1.sb/T2.sb;
  if k1=k2 then begin
    k3:=T1.sc/T2.sc;
    TriangleIsLikes:=k1=k3
    end
  else
    TriangleIsLikes:=False
end;

var
  T1,T2:Triangle;
  legal:boolean;
begin
  Writeln('*** Первый треугольник ***');
  CreateTriangle(T1,legal);
  if legal then begin
    Writeln('*** Второй треугольник ***');
    CreateTriangle(T2,legal);
    if legal then
      if TriangleIsLikes(T1,T2) then Writeln('Треугольники подобны')
      else Writeln('Треугольники не подобны')
    else Writeln('Треугольник невозможно построить')
    end
  else Writeln('Треугольник невозможно построить')
end.

 

 

 

   

 Достоинства исполнителя Робот 

 

1) Скорость  

 

 

 Недостатки исполнителя Робот

 

 

 

1) Неправильный перевод предложения. Т. к  при буквальном переводе слово в слово теряется смысл. (особенно касается жаргонных английских фраз и идиом ).

 

 

Достоинства исполнителя Человек

 

1) Возможность самостоятельно корректировать и дополнять заданный алгоритм

 2) Прочитав первое предложение на шаге 2 переводить его не тупо пословно, а учитывая  структуру предложения и тип употребляемых слов(идиомы ,американизмы и.т.д) .

3) Более точная передача смысла фразы 

 

 

 

 Недостатки  исполнителя Человек. 

 1) Значительно более низкая скорость перевода.

2) Необходимость в перерывах ввиду естественных потребностей (сон,еда,туалет).