Помогите пожалуйста с программой сравнения 3 чисел на Pascal

[rsany]

Я знаю что это элементарно, но если завтра не принесу прогу, меня отчислят
Задача:
Даны 3 числа, найти и распечатать большее из них.

[rsany]

народ, если нужно, заплачу.

[Пепел Феникса]

program Project1;
var c1,c2,c3:integer;
begin
 ReadLn(c1,c2,c3);
 if (c1>c2)and(c1>c3) then writeln(c1) else
  if (c2>c1)and(c2>c3) then writeln(c2) else writeln(c3);
 readln;
end.

в общем вот

[rsany]

спасибо большое, только я не дождался и заказал за деньги.. сделали через циклы.. пытаюсь теперь псевдокод написать(