Algorytm wyboru największej z trzech liczb całkowitych

program maximum;
uses crt;
var a,b,c,max:integer;
begin
  clrscr;
  writeln('podaj trzy liczby');
  readln(a,b,c);
  if a>b then if a>c then max:=a
              else max:=c
  else if b>c then max:=b
              else max:=c;
  writeln('maksimum wynosi = ',max);
  readln;
end.

program maximum_optymalnie;
uses crt;
var a,b,c,max:integer;
begin
  clrscr;
  writeln('podaj trzy liczby');
  readln(a,b,c);
  if a>b then  max:=a else max:=b;
  if c>max then max:=c;
  writeln('maksimum wynosi = ',max);
  readln;
end.