Question

скласти програму для знаходження найбільшого числа із 3-ох

Answer 1

var  a, b, c: integer;

begin 
read(a, b, c);  
if (a > b) and (a > c) then write(a)  
else  
if (b > a) and (b > c)    then write(b) 
else write(c);
end.