Составьте программу в паскале, в которой нужно найти наименьшее из двух чисел

Program f1;

var a, b, max, min:real;

begin

writeln ('vvedine chisla') ;

readln (a, b) ;

if (a>b) then (a:=max) else a:=min;

writeln ('max=', max, 'min=', min) ;

readln;

end.

Program chislo;

var a, b, min:real;

begin

writeln ('vvedine chisla a and b') ;

readln (a, b) ;

if (a>b) then min:=b; else min:=a

writeln ('min=', min) ;

readln;

end.

В верхнем решении находим max который неуказан в задании, поэтому это лишнее!