program Main;vara, b, c: Integer;beginwriteln('Enter three numbers:');readln(a, b, c);
if (a >= -1) and (a <= 3) thenwriteln(a);if (b >= -1) and (b <= 3) thenwriteln(b);if (c >= -1) and (c <= 3) thenwriteln(c);end.
program Main;
var
a, b, c: Integer;
begin
writeln('Enter three numbers:');
readln(a, b, c);
if (a >= -1) and (a <= 3) then
writeln(a);
if (b >= -1) and (b <= 3) then
writeln(b);
if (c >= -1) and (c <= 3) then
writeln(c);
end.