Составьте программу в паскале,в которой нужно найти наименьшее из двух чисел
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;
writeln ('vvedine chisla a and b');
if (a>b) then min:=b ; else min:=a
writeln ( 'min=',min);
В верхнем решении находим max который неуказан в задании , поэтому это лишнее !