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

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.