изи в одну строчку решил, как и ожидалось
var a,b,c: integer;
begin
readln(a,b,c);
if a<b then if a<c then writeln(a) else writeln(c) else if b<c then writeln(b) else writeln(c);
end.
