Написать программу и начертить для нахождения минимальное и максимальное среди трёх чисел. Напишите пожалуйста)

var   a,b,c,max,min:integer;beginwrite('Введите первое число');readln(a);write('Введите второе число');readln(b);write('Введите третье число');readln(c);  if a > b then     max:=a  else    max:=b;  if max > c then     writeln('Максимальное число = ', max)  else    writeln('Максимальное число = ', c);    if a > b then    min:=b    else    min:=a;    if min < c then    writeln('Минимальное число = ', min)    else    writeln('Минимальное число = ', c);end.