ИНФОРМАТИКА Найти сумму всех натуральных чисел

Program yeah;
var
a,b,c,d,n:integer;
begin
writeln('введите число.(0-юноша,1-девушка).');
readln(n);
if n=0 then begin
writeln('введите вес');
readln(a);
writeln('введите рост');
readln(b);
if b=110 then begin
if a<=b then writeln('юноша принят.');
end;
if a>b then writeln('не подходит по весу.');
if b<>110 then writeln('не подходит по росту.');
end;
if n=1 then begin
writeln('введите вес');
readln(a);
writeln('введите рост');
readln(b);
if b=115 then begin
if a<=b then writeln('девушка принята.');
end;
if a>b then writeln('не подходит по весу.');
if b<>115 then writeln('не подходит по росту.');
end;
end.

Бесконечность – не предел! Этот девиз из известного высказывания Стива Джобса как нельзя лучше отражает происходящее в настоящее время проникновение прогрессивных технологий в жизнь человека. Современная физика предполагает, что в основе окружающей человека реальности лежит бесконечность. Перед бесконечностью все равны и кибернетический суперинтеллект будущего и человек с его недостатками, всем есть экологическая ниша для жизни. Будущее принадлежит не человеку и не роботу, а своеобразному кентавру – человеко-машинному комплексу. Из выше сказанного тривиально следует команду назвать: Кентавры.