Все задание надо сделать на Delphi 1) Рассчитайте площадь круга и (или) круга (используйте независимый переключатель). Введите радиус круга на клавиатуре. Отображение результатов расчета на экране монитора.
2) Создайте проект, который рассчитывает объем заказов (компьютерная техника) в зависимости от типа товара и выбранных цен (розничная цена должна быть выше оптовой). Список товаров должен быть не менее 5.
3) Напишите программу, которая отображает одно из сообщений в соответствии с выбранным номером дня недели: «Рабочий день», «Суббота» или «Воскресенье».

Вычислительная техника является важнейшим компонентом процесса вычислений и обработки данных. Первыми при для вычислений были, вероятно, всем известные счётные палочки, которые и сегодня используются в начальных классах многих школ для обучения счёту. Развиваясь, эти при становились более сложными, например, такими как финикийские глиняные фигурки, также предназначаемые для наглядного представления количества считаемых предметов. Такими при похоже, пользовались торговцы и счетоводы того времени.

Function leng(var x,y,x1,y1: real): real;
begin
  leng:=sqrt(sqr(x-x1)+sqr(y-y1));
end;

// основная программа
var x1,y1,x2,y2,x3,y3,p: real;
begin
  write('координаты вершин  x1 y1 x2 y2 x3 y3 через пробел:  ');
  readln(x1,y1,x2,y2,x3,y3);
  if (leng(x2,y2,x1,y1) + leng(x3,y3,x2,y2) = leng(x3,y3,x1,y1)) or
     (leng(x2,y2,x1,y1) + leng(x3,y3,x1,y1) = leng(x3,y3,x2,y2)) or
     (leng(x3,y3,x2,y2) + leng(x3,y3,x1,y1) = leng(x2,y2,x1,y1)) then
  writeln('точки лежат на одной прямой')
  else 
  begin
    p:=leng(x2,y2,x1,y1)+leng(x3,y3,x2,y2)+leng(x3,y3,x1,y1);
    writeln('периметр: ',p:7:3);
  end;
end.

координаты вершин  x1 y1 x2 y2 x3 y3 через пробел:  3 4 7 2 6 5
периметр:  10.797

координаты вершин  x1 y1 x2 y2 x3 y3 через пробел:  1 2 3 4 5 6
точки лежат на одной прямой