Составить блок-схему и программу паскаль cоставить программу, сообщающую о возможности построения параллелограмма из отрезков x,y,z,t данные 1 , 2 , 1 , 2 можно 7 , 5 , 6 , 5 нельзя надо

Uses crt;
var a: array [1..4] of integer;
    x,p,y:integer;
begin
     writeln('Введите длины отрезков: ');
     for x:=1 to 4 do
         read(a[x]);
     for y:=1 to 3 do
         for x:=1 to 3 do
         if a[x]>a[x+1] then
         begin
              p:=a[x];
              a[x]:=a[x+1];
              a[x+1]:=p;
         end;
     if (a[1]=a[2]) and (a[3]=a[4]) then writeln('Можно')
        else writeln('Нельзя');
end.