Написать программку , в паскале, для нахождения наименьшего и наибольшего из

program zz1;

var a, b, c, s :integer; // задаем переменные целого типа

procedure max(n, m, v:integer; var k:integer);

begin

if (ngt;=m)and(ngt;=v) then k:=n;

if (mgt;=n)and(mgt;=v) then k:=m;

if (vgt;=m)and(vgt;=n) then k:=v;

end;

procedure min(n, m, v:integer; var k:integer);

begin

if (nlt;=m)and(nlt;=v) then k:=n;

if (mlt;=n)and(mlt;=v) then k:=m;

if (vlt;=m)and(vlt;=n) then k:=v;

end;

begin

write( введите первое число a );  // вводим с клавиатуры 1-ое число

read(a);

write( введите 2-ое число b );  // вводим с клавиатуры 2-ое число

read(b);

write( введите третье число b );  // вводим с клавиатуры третье число

read(c);

max(a, b, c, s); // вызываем процедуру

write( наибольшее = , s); //выводим ответ

min(a, b, c, s); // вызываем процедуру

write( минимальное = , s); //выводим ответ

end.