1.даны 3 числа, найти меньшее. 2.дано число n-кг, найти количество полных тонн. 3.даны 3 точки по своему координату ху, определить могут ли они быть вершинами треуголника, если да , найти р и s , если нет, обьявить об этом в
сообщении. 4.дано число, определить количество нечётных делителей . заранее !

1.

var a, b, c: real

begin 

  readln(a, b, c);

  if (a<b)and(a<c) then writeln('Меньшее число: ', a);

  if (b<a)and(b<c) then writeln('Меньшее число: ', b);

  if (c<a)and(c<b) then writeln('Меньшее число: ', c);

end.

2.

var n: integer;

begin

  writeln('Введите количество килограмм');

  readln(n);

  writeln('Количество полных тонн: ', n div 1000)

end.