Ответы и объяснения

2012-03-09T18:37:34+04:00

var a,b,c: integer;
begin
readln(a);
readln(b);
readln(c);
if a<b then
begin
if a<c then writeln(a)
else writeln(c);
end
else if b<c then writeln(b)
else writeln(c);
readln;
end.