Написать в тетрадях программу для вычисления максимального и минимального элемента из трех введенных.

Program suicide;

var

a, b, c:integer;

begin

writeln ('Введите три числа через пробел ') ;

readln (a, b, c) ;

if (a>b) and (a>c) then

writeln ('Наибольшее ', a)

else if (b>a) and (b>c) then

writeln ('Наибольшее ', b)

else writeln ('Наибольшее ', c) ;

readln;

end.