Очень прошу помогите Q_Q 1) Даны три числа вывести их в порядке ...

Мария

#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