ПАМАГИТЕ! на языке паскаль:В танцевальный коллектив набирают учеников, измеряя их вес V и рост R. В коллектив пройдут только те, у которых V<=R-100. Запросите вес и рост претендента и дайте ответ, пройдет ли он в танцевальный коллектив.
program DanceCollective; var weight, height: integer; begin writeln('Введите вес и рост претендента:'); readln(weight, height);
if weight <= height - 100 then writeln('Претендент может пройти в танцевальный коллектив.') else writeln('Претендент не может пройти в танцевальный коллектив.'); end.
program DanceCollective;
var
weight, height: integer;
begin
writeln('Введите вес и рост претендента:');
readln(weight, height);
if weight <= height - 100 then
writeln('Претендент может пройти в танцевальный коллектив.')
else
writeln('Претендент не может пройти в танцевальный коллектив.');
end.