Даны 3 числа. Найти минимальное из них

Question

Photoart · Accepted Answer

uses crt; var a,b,c,min: integer; begin writeln ('Введи три числа: '); readln (a,b,c); min: =a; if b<min then min: =b; if c<min then min: =c; writeln ('Наименьшее из этих чисел: ',min); end.

Даны 3 числа. Найти минимальное из них

Задание:

Решение: