Найти минимальное из трех чисел - Turbo Pascal (28944)

Формулировка задачи:

Заданы три числа, надо найти минимальное число. Составить программу для вычисления периметра 10 прямоугольников.

Решение задачи: «Найти минимальное из трех чисел»

Листинг программы

var
a,b,c,min:integer;
begin
write('a=');
read(a);
writeln;
write('b=');
read(b);
writeln;
write('c=');
read(c);
writeln;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('min = ', min);
end.

Объяснение кода листинга программы

В начале объявляются переменные a, b, c и min типа integer.
Затем происходит вывод значений этих переменных на экран с помощью функции write.
После этого с помощью функции read считываются значения переменных a, b и c.
Значение переменной min устанавливается равным минимальному из трех чисел: сначала a, затем b и наконец c.
Если значение переменной b меньше значения переменной min, то min устанавливается равным b.
Если значение переменной c меньше значения переменной min, то min устанавливается равным c.
Наконец, выводится на экран значение переменной min с помощью функции writeln.