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

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.