1. Дана последовательность целых чисел a, b, c. Найти минимальное из них, и разделить на него все числа. Входные данные вводятся пользователем с экрана. Вывод так же осуществляется на экран.

var a, b, c:integer;

min:integer;

begin

Запрашиваем у пользователя число а:

readln (a);

Присваиваем переменной min значение а:

min:=a;

Пользователь вводит значение переменной b:

readln (b);

Если оно меньше, чем а, то мы заново присваиваем значение b переменной для хранения минимального из чисел:

if b < min then

min:=b;

Пользователь вводит переменную с:

readln (c);

Если она меньше, чем b, то ее значение присваиваем переменной min:

if c < min then

min:=c;

Затем выводим по порядку значение деления каждого из переменных на минимальное значение:

writeln (a/min);

writeln (b/min);

writeln (c/min);

end.