1.Напишите программу вычисления веса образцового мужчины по формуле:Ид.Вес-Рост в см -100Значение

1)program zz1;

var a, b:integer; // задаем переменные целого типа

begin

write( введите рост мужчины в см );  // вводим с клавиатуры число

read(a);  

b:=a - 100;

write( Для мужчины ростом , a, см. образцовый вес равен , b, кг.); //выводим ответ

end.

2)program zz1;

var a, b, c:integer; // задаем переменные целого типа

begin

write( введите рост женщины в см );  // вводим с клавиатуры число

read(a);  

b:=a - 100;

c:=b - b div 10;

write( Для женщины ростом , a, см. образцовый вес равен , c, кг.); // выводим ответ

end.