Question

ПАМАГИТЕ! на языке паскаль:
В танцевальный коллектив набирают учеников, измеряя их вес V и
рост R. В коллектив пройдут только те, у которых V<=R-100.
Запросите вес и рост претендента и дайте ответ, пройдет ли он в
танцевальный коллектив.

Answer 1

begin

var(v,r):=ReadInteger2;

if V<=R-100 then Println('Пройдет')

else Println('Не пройдет')

end.

Answer 2

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

begin

 Println(ReadInteger('v=')<=ReadInteger('r=')-100?'Пройдет':'Не пройдет');

end.