program t;
var c1,c2,c3,m: integer;
begin
write ('c1 = ');
readln (c1);
write ('c2 = ');
readln (c2);
write ('c3 = ');
readln (c3);
m:=c1;
if c2<m then m:=c2;
if c3<m then m:=c3;
writeln(' m = ',m)
end.
Объяснение:
Вводим 3 числа
Присваиваем переменной m значений с1
Сравниваем значение переменной m с с2, если с2 меньше m, то присваиваем переменной m значений с2
Сравниваем значение переменной m с с3, если с3 меньше m, то присваиваем переменной m значений с3
Выводим m
