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

begin

var(v,r):=ReadInteger2;

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

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

end.

begin

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

end.