Question

СРОЧНО ПОМОГИТЕЕЕЕЕ
будьте добры...​

Answer 1

Ответ:

program acros;

var a,b,c,min : real;

begin

writeln ('введи 3 числа');

readln (a,b,c);

if a<b then

begin

if b<c then

writeln (min=c);

else

writeln (min=b);

end.

begin

if a<c then

writeln (min=c);

else

writeln (min=a);

end;

writeln ('выведи min');

end.

Объяснение:

приблизительно так, вроде работает