Даны переменные a,b,c.нужно найти минимальное из них (блок-схема)

Program x;

var a,b,c: integer;

 begin 

writeln('введите три числа');

readln(a,b,c);

if (a>b) and (b>c) then writeln('минимальное число', с);

if (a>b) and (c>b) then writeln('минимальное число', b);

if (a<b) and (a<c) then writeln ('минимальное число', a);

end.