Помогите пожалуйста Даны 3 числа a,b,c. Определить минимальное из них. Если…

Program project1; usescrt,math; var s: real; i,j,f: real; a: integer; begin writeln ('vvedite 1 chislo '); readln (i); writeln ('vvedite 2 chislo '); readln (j); writeln ('vvedite 3 chislo '); readln (f); s: =i; if j0 then i: =i*-1; if j>0 then j: =i*-1; if f>0 then f: =i*-1; end; writeln ('min chislo ',s: 2:0); readln; end.