 
                                                 
                                                 
                                                1)
program m;
uses crt;
var i,a,b,c,min:integer;
begin
clrscr;
readln(a,b,c);
if a<min then min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('        ',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<min then min:=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 a<b then b:=a;
if c<a then b:=c;
writeln(b);
readkey;
end.
 
                                                 
                                                 
                                                 
                                                 
                                                 
                                                 
                                                 
                                                
Таблица не является скорее всего.
Объяснение: