Написать программу и блок-схему. Дано три числа a, b, c. Найти среди них минимальное?

program al; var a, b, c, d, e1, e2: integer; begin writeln ('введите три числа'); readln (a, b, c); d:=a-b; if d>0 then e1:=b-c; if d0 then writeln (c); if e10 then writeln (c); if e2<0 then writeln (a); end.