Аркадий хочёт купить телефон​

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