посчитайте с информатикой

:

1) 1,3,4

2)

program example;

var a,x:integer;

begin

writeln('введите рост');

readln(a);

x:=a-100;

writeln('идеальный вес=',x);

end.