1. известно, что нормальный вес человека можно определить, используя формулу: вес = рост (см) * окружность гр. клетки (см) / 240 составить алгоритм и программу для определения веса по этой формуле. 2. записать алгоритм для вычисления произведения и деления двух чисел

1.
Program p1;
var r,g:integer; v:real;
begin
write('Рост (см) = '); readln(r);
write('Гр. клетка (см) = '); readln(g);
v:=r*g/240;
writeln('Вес = ',v:5:2);
end.

Пример:
Рост (см) = 160
Гр. клетка (см) = 90
Вес = 60.00

2.
Program p2;
var a,b,c:integer; d:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
c:=a*b;
writeln(a,' * ',b,' = ',c);
d:=a/b;
writeln(a,' / ',b,' = ',d);
end.

Пример:
a = 8
b = 10
8 * 10 = 80
8 / 10 = 0.8