Очень прошу помогите Q_Q 1) Даны три числа вывести их в порядке возрастания . Составить алгоритм в Паскале. 2)Определить пройдёт ли кирпич с рёбрами a,b,c в прямоугольное отверстие со сторонами x и y. Алгоритм в Паскале.

#1:

const Count = 3; // количество проверяемых чисел

var m : array [1..Count] of Integer; i, e, c: Integer;begin

Writeln('Введите числа:'); for i := 1 to Count do begin Write(i ,': '); Readln( m[i] ); end; for i := 1 to Count do for e := 1 to Count do if m[i] < m[e] then begin c := m[i]; m[i] := m[e]; m[e] := c; end; for i := 1 to Count do Write(m[i], ' '); Readln;end.

#2:

var a, b, c, x, y: Integer;begin

Writeln('Введите рёбра кирпича:'); Write('a: '); Readln( a ); Write('b: '); Readln( b ); Write('c: '); Readln( c ); Writeln('Введите стороны отверстия:'); Write('x: '); Readln( x ); Write('y: '); Readln( y );

x := x*y; if (a*b <= x) or (a*c <= x) or (b*c <= x) then Write('Пройдёт.') else Write('не пройдёт.'); Readln;end.