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

var a,b,c,min:integer; a1,b1,c1:real;beginwrite('a=');readln(a);write('b=');readln(b);write('c=');readln(c);if a<b then min:=a else min:=b;if c<min then min:=c;a1:=a/min; b1:=b/min; c1:=c/min;writeln('min=',min);writeln('a1=',a1:5:2,' b1=',b1:5:2,' c1=',c1:5:2);end.Пример работы программы:a=43b=28c=37min=28a1= 1.54 b1= 1.00 c1= 1.32