Помогите решить олимпиаду

[wodafone]

Program Zarplata;
var
a,b,c,max,min:real;
begin
writeln('Çàðïëàòè ñï³âðîá³òíèê³â');
readln(a,b,c);
begin
if a > max then
  max := a
else if a < min then
  min := a;
  end;
  begin
  if b > max then
  max := b
else if b < min then
  min := b;
  end;
  begin
  if c > max then
  max := c
else if c < min then
  min := c;
  end;

что дальше дописать?

[BDA]

2 задание
Числа натуральные. Задайте min и max перед сравнениями. Выведите разницу между max и min. И что-то много begin Вы написали.
Насчет max и min: раз Вы так решили считывать, то задайте min = a, max = a, а другие сравнения оставьте.

[wodafone]

readln(a,b,c);
min:=a;
max:=a;
begin
if a > max then
  max := a
else if a < min then
  min := a;
  end;
 if b > max then
  max := b
else if b < min then
  min := b;
  end;
  if c > max then
  max := c
else if c < min then
  min := c;
  end;
  end.

Вот так?

[BDA]

Да, практически, только не нужно сравнивать a с минимумом и максимумом. Кстати, теперь есть лишние end (не заметил их в прошлый раз - эти begin и end не выполняют никакой полезной работы).

[wodafone]

Огромное спасибо, олимпиаду Сдал)
Вывод один. Буду читать литературу по Паскаль, не подскажите.. что почитать ?

[BDA]

Пожалуйста.
Книжки указаны в шапке этого раздела - http://programmersforum.ru/showthread.php?t=8324.
Тренироваться можно на:
informatics.mccme.ru (есть теория)
acmp.ru
acm.timus.ru