Program naimen;

Var A, B: integer;

begin

Write ('Введите число А=');

Read (A);

Write ('Введите число B=');

Read (B);

If A<B then

Write ('Наименьшее число А')

else Write ('Наименьшее число В');

end.

Program L1e2na;
uses crt;
var
  a,b:real;
begin
  writeln('+--------------------------------------+');
  writeln('|            СРАВНИВАЛКА :)            |');
  writeln('+--------------------------------------+');
  write('Введите число a: '); readln(a);
  write('Введите число b: '); readln(b);
  writeln();
  writeln('+--------------------------------------+');
  writeln('|              Результат:              |');
  writeln('+--------------------------------------+');
  if a-b<0 then
  writeln('|        Число а меньше числа b        |')
  else   if a-b>0 then
  writeln('|        Число b меньше числа a        |')
  else
  writeln('|              Числa равны             |');
  writeln('+--------------------------------------+');
end.