program findSmallestNumber;
vara, b, c: integer;
beginwriteln('Enter three numbers:');readln(a, b, c);
if (a < b) and (a < c) thenwriteln('The smallest number is: ', a)else if (b < a) and (b < c) thenwriteln('The smallest number is: ', b)elsewriteln('The smallest number is: ', c);
end.
program findSmallestNumber;
var
a, b, c: integer;
begin
writeln('Enter three numbers:');
readln(a, b, c);
if (a < b) and (a < c) then
writeln('The smallest number is: ', a)
else if (b < a) and (b < c) then
writeln('The smallest number is: ', b)
else
writeln('The smallest number is: ', c);
end.