Сравнить значение 2х переменных и вывести наименьшее
язык программирования паскаль​

program n1;

var q,w:real;

begin

 writeln('ведите первое число');

 readln(q);

 writeln(' ведите второе число');

 readln(w);

 if q<w then

  writeln(q)

 else

      writeln(w);

end.

Объяснение: