Составить программу вычисляющее наибольшее из 3 заданных чисел (паскаль)

vara,b,c: integer; writeln ('a,b,c'); 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); end; можно через один if.