Составьте на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс.

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.