Вшколу танцев принимаются юноши и девушки, имеющие рост не ниже 168 см. и не выше 178 см. вес претендента должен соотносится с ростом по формуле: значение веса < значение роста. определите будет ли поступающий принят в школу.

Var
a,b,c,a1,b1:
real;
begin
a:=168;
b:=178;
write('Введите рост - ');
readln(a1);
write('Введите вес - ');
readln(b1);
if (a1<a) or (a1>b) then
 writeln('Предендент не может вступить в школу так как его рост не соответствует нормам.')
  else
  begin
   if b1>a1 then
 writeln('Предендент не может вступить в школу так как его вес не соответствует нормам.')
    else writeln('Человек может вступить в школу.');
  end;
end.

Решение №1 (без массивов)

var a,n,i,j,s:integer;
begin
  writeln('Введите количество цифр в числе');
  readln(n);
  for i:=1 to n do begin
    writeln('Введите ',i,' цифру из ',n);
    readln(a);
    for j:=1 to n-i do a:=a*10;
    s:=s+a;
  end;
  writeln('Натуральное число: ',s);
end.

Тестовое решение

Введите количество цифр в числе
5
Введите 1 цифру из 5
9
Введите 2 цифру из 5
2
Введите 3 цифру из 5
7
Введите 4 цифру из 5
3
Введите 5 цифру из 5
1
Натуральное число: 92731

Решение №2 Если очень надо использовать массив (хотя на мой взгляд совсем не нужно)

//PascalABC.NET (версия 3.1, сборка 1198)
var a,n,i,j,s:integer;
mas:array[1..10]of integer;
begin
  writeln('Введите количество цифр в числе');
  readln(n);
  for i:=1 to n do begin
    writeln('Введите ',i,' цифру из ',n);
    readln(mas[i]);
    a:=mas[i];  
    for j:=1 to n-i do a:=a*10;
    s:=s+a;
  end;
  writeln('Натуральное число: ',s);
end.

Тестовое решение

Введите количество цифр в числе
5
Введите 1 цифру из 5
5
Введите 2 цифру из 5
4
Введите 3 цифру из 5
3
Введите 4 цифру из 5
2
Введите 5 цифру из 5
2
Натуральное число: 54322

Windows  – без обновления операционной системы, вы и не почувствуете всех обновлений. мы рекомендуем  установить windows 8, так как она выполнена по всем современным меркам.монитор  – это первое на что мы обращаем внимание, сидя за компьютером, и чем он будет больше и красивее, тем больше положительных эмоций вы получите от обновления пк. рекомендуем для этого прочесть статью: «как выбрать монитор для компьютера». в подключении монитора думаем, что вопросов не возникнет.клавиатуру и мышь  – какое же внешнее обновление компьютера без замены  мышкиили  клавиатуры? ! обязательно выберите себе новые манипуляторы! коробку системного блока  – даже если у вас нет денег (или желания) обновлять все комплектующие компьютера (например, и этими вы довольно), то просто обновите коробку системного блока на современную. в этом случае все вокруг подумают, что вы обновили своё пк полностью! если нет навыков сбора компьютера – доверьте это дело профессионалам, таким как на masterservis24.ru! акустика  – последним штрихом в создании нового образа компьютера будет новое звучание и новый вид колонок для компьютера, чтобы вы не только видели обновленный компьютер, но и слышали его. кстати колонки можно просто заменить  новыми и хорошими наушниками для компьютера. если вас устраивает внешний вид пк, а больше интересует скорость его работы, то вам нужно выполнить обновление следующих деталей: процессор  – главная деталь всего компьютера, так как именно от мощности этого устройства зависит быстрота работы всей системы. помните, что  выбирать процессор для компьютера нужно правильно  (о чём мы уже писали ранее).материнская плата  – её нужно менять по нескольким причинам: во-первых, каждый из процессоров подходит только к определенным моделям «материнки». во-вторых, вам на материнской плате может не хватать слотов для дополнительного озу или второй видеокарты. о том,  как выбрать материнскую плату  мы писали ранее. устанавливать её самостоятельно не советуем, лучше попросить о .оперативное запоминающее устройство (озу)  – его также следует обновлять, однако если не хватает денег, то лучше выбрать более мощный процессор, чем много озу, ведь память всегда можно добавить самостоятельно и даже не вызывая мастера.жесткий диск  – скорости в работе компьютера он вряд ли прибавит (если только это не ssd диск), зато у вас появиться масса свободного места для разных файлов. перед тем, как купить жесткий диск, рекомендуем прочесть статью  как его выбрать, а также  как правильно устанавливать жесткий диск.видеокарта  – обновлять её нужно только в том случае, если она вышла из строя (шумит, например) или вы хотите играть в новые компьютерные игры, которые требуют более нового «железа».блок питания  – о том,  как выбрать блок питания  мы писали совсем недавно, и его замена будет для вас больше вынужденной, так как новые комплектующие устройства всегда более требовательны к энергии. новый блок питания не даст сгореть компьютеру и обеспечит его стабильную работу.