Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите, пожалуйста, написать программу в Pascal.
Напишите функцию выбора меньшего из целых чисел. Используйте ее в программе выбора наименьшего из трех чисел.

Ответ оставил Гость

Var a,b,c,m:integer;
function min(x,y:integer):integer;
begin
if xend;
begin
write(a=); readln(a);
write(b=); readln(b);
write(c=); readln(c);
m:=min(min(a,b),c);
writeln(min=,m);
end.

Пример:
a=5
b=3
c=8
min=3