Из трех данных чисел выбрать наименьшее.

Из трех данных чисел выбрать наименьшее. 

 Program Anadra;

uses crt;

var a,b,c,min :integer;

begin

writeln(‘Введите 3 числа’);

readln(a);

readln(b);

readln(c);

If a<b then min:=a

Else min:=b;

If c<max then min:=c;

writeln(‘Самое маленькое число ‘,min);

end. 

Разбор решения:

Задачка решается аналогично этой.