program MassaProg;
uses crt;
var factmassa, heigth: integer;
var massa: real;
begin
writeln('Vvedite rost v santimetrah: ');
readln(heigth);
writeln('Vvedite ves: ');
readln(factmassa);
massa:=heigth-100-0.1*(170-100);
if massa = factmassa
then writeln('Vash ves idealnii') else writeln('Vash ves ne idealnii');
end.
