Технический форум - Помогите, пожалуйста, написать программу на Turbo Pascal

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

Помогите, пожалуйста, написать программу на Turbo Pascal

Введите три числа и выведите их в строчку в центре экрана: самое большое число красным цветом, самое маленькое синим цветом, среднее по величине желтым цветом.

Цитата:

Сообщение от Skuttbin (Сообщение 834489)

Да пожалуйста:

Код:

Uses CRT;

Const

 Colors:Array[1..3] of Byte=(4,14,1);

Var

 A:Array[1..3] of Integer;

 d:Integer;

 i,j:byte;

Begin

 ClrScr;

 For i:=1 to 3 do

  begin

   Write('A',i,'= ');

   Readln(A[i]);

  end;

 For i:=1 to 2 do

  For j:=1 to 3-i do

   if A[j]<A[j+1] then

    begin

     d:=A[j];

     A[j]:=A[j+1];

     A[j+1]:=d;

    end;

 ClrScr;

 For i:=1 to 3 do

  begin

   GotoXY((30+(i-1)*10),12);

   TextColor(Colors[i]);

   Write(A[i]);

  end;

 NormVideo;

 ReadKey;

End.

Спасибо за помощь)