Program rostives;
Var r, v: real;
Begin
  Writeln('Программа определяет пригодность человека для кружка по заданным параметрам.');
  Write('Введите рост (в см): ');
  Readln(r);
  Write('Введите вес (в кг): ');
  Readln(v);
  if (r>170) and (v<58) then write('Кандидат подходит в модели')
  else write('Кандидат не подходит в модели');
  Readln;
End.