4 бит = 4/8 байт = 0,5 байт
1,5 Кб = 1,5*1024 = 1536 байт
Var
ves,rost,ogk:real;
begin
Write('Введите рост и длину окружности грудной клетки в см: ');
Readln(rost,ogk);
ves:=rost*ogk/240;
Writeln('Нормальный вес равен ',ves:5:1,' кг.')
end.
В libre office и open office - Writer. Остальные программы перечислили ранее.
Ответ 3, так как он поднялся 1 раз, спустился 2, по условию подходит