Вопрос, который вызвал трудности

СОСТАВЬТЕ НЕ МЕНЕЕ ТРЕХ ВАРИАНТОВ ПРОГРАММЫ ОПРЕДЕЛЕНИЯ НАИМЕНЬШЕГО ИЗ ТРЕХ ДАННЫХ ЧИСЕЛ....

Пожалуйста

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

СОСТАВЬТЕ НЕ МЕНЕЕ ТРЕХ ВАРИАНТОВ ПРОГРАММЫ ОПРЕДЕЛЕНИЯ НАИМЕНЬШЕГО ИЗ ТРЕХ ДАННЫХ ЧИСЕЛ....

Пожалуйста

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

1)Program n_1;
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if c>y then c:=y;
if c>z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (y>x) and (z>x);
w:= (ye:= (zif e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (xif (yif (zend.