Надо решить циклом с предусловием
Дано вещественное число – стоимость 1 кг конфет. Вывести на экран стоимость 1, 2, …, 10 кг конфет.

Например: если стоимость 1 кг будет 80,5 рублей, то на экран будет выведено

80.5 161.0 241.5 322.0 402.5 483.0 563.5 644.0 724.5 805.0

Если у нас есть координаты этих вершин на плоскости вида (x; y), то
A(x1,y1)
B(x2,y2)
C(x3,y3)

program q;
var x1,x2,y1,y2,x3,y3:integer;
ab,ac,alp,bet,alfa,s:real;
begin
write('введите координаты точки A: ');
read(x1);
readln(y1);
write('введите координаты точки B: ');
read(x2);
readln(y2);
write('введите координаты точки C: ');
read(x3);
readln(y3);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1));
ac:=sqrt(sqr(x3-x1)+sqr(y3-y1));
alp:=arctan((y2-y1)/(x2-x1));
bet:=arctan((y3-y1)/(x3-x1));
alfa:=bet*2-alp;
s:=sin(alfa)*(ab*ac)/2;
writeln('площадь треугольника=',s);
readln
end.

1г углеводы - 4,1 ккал

1 г жиров — 9,3 ккал

1 г белков — 4,2 ккал

Вычесления крайне простые,на пример возмем порцию картлофеля с маслом:

1.

От белков : 2,7г*4,2ккал/г=11.34ккал

От углеводов:39г*4.1ккал/г=159.9ккал

От жиров:7г*9.3ккал/г=65.1ккал

 

2.Общая калорийность блюда

11.34+159.9+65.1=236.34(кка)

 

3.Если в обед входят ещё какие блюда то сумируешь их энергетические ценности каждого компонента(б,угл,ж).

4.Суммируешь общую каллорийность блюд .

 

Здесь главное продумать структуру таблицы .