Помогите составить блок-схему и программу паскальCоставить программу,…

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.