Составьте на Паскале программу определения минимума из трех чисел…

program picaso; uses crt; var a,b,c,minim: real; procedure min (a,b: real; var minim: real); begin if a>b then minim: =b else minim: =a; end; begin clrscr; writeln ('a'); readln (a); writeln ('b'); readln (b); writeln ('c'); readln (c); min (a,b,minim); min (minim,c,minim); writeln ('Min=',minim); readln; end.