Сокращение программ Опции

[Барс]

Звиняйте, но сначала спрошу как вставлять текст программы из окна фрипаскаля, а затем задам вопрос по теме.

[Барс]

Наконец-то до компа добрался.
Вопрос такой. Хотелось бы узнать побольше о методах сокращения программ. Наверняка, опытные программисты могут многое посоветовать (напр.: вместо какой-то толпы операторов, можно обойтись одним и т.д.). Хочется изначально научиться коротко писать проги. В принципе, это даже можно оформить как инструкцию для новичков.
Для примера выкладываю своё решение одной задачи. Чую, что можно сократить (кажется, что есть лишние прверки условий). А как сократить-незнаю.

(Условный оператор) 
Из трех данных чисел выбрать наименьшее.

Program u;
uses Crt;
var
  a,b,c:real;
begin
  ClrScr;
  write('Введите 1-е число a='); readln(a);
  write('Введите 2-е число b='); readln(b);
  write('Введите 3-е число c='); readln©;
   if a>b then
     begin
       if b>c then
       writeln('c - наименьшее число')
       else writeln('b - наименьшее число');
     end;

    if b>c then
     begin
       if c>a then
       writeln('a - наименьшее число')
       else writeln('c - наименьшее число');
     end;

     if c>a then
     begin
       if a>b then
       writeln('b - наименьшее число')
       else writeln('a - наименьшее число');
     end;

end.