Viết chương trình pascal in ra số lớn nhất trong các số a,b,c

var a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (a>c) then 
writeln(a);
if (b>a) and (b>c) then 
writeln(b);
if (c>b) and (c>a) then 
writeln(c);
readln;
end.

Pascal

program hoidap;
uses crt;

var
  a, b, c, max: Integer;
begin
   clrscr;
   readln(a, b, c);
   max := a;  
   if b > max then
     max := b; 
   if c > max then
     max := c;  
   writeln(max);
   readln;
end.