составьте не менее трех вариантов програмы определния наименьшего из трех данных чисел

Вопрос от посетителя:

составьте не менее трех вариантов програмы определния наименьшего из трех данных чисел

Илюха отвечает:

1)

program m;
uses crt;
var i,a,b,c,min:integer;
begin
clrscr;
readln(a,b,c);

if aif bif cwriteln(‘        ‘,min);
readkey;
end.

 

2)

program m;
uses crt;
var i,a,b,c,min,d:integer;
begin
clrscr;
readln(a);
min:=a;
for i:=1 to 2 do            

                                    begin
readln(a);
if a                                    end;
writeln(min);

readkey;

end.

 

3)

program m;
uses crt;
var i,a,b,c,min,d:integer;
begin
clrscr;
readln(a,b,c);
if aif cwriteln(b);
readkey;
end.