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

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.