Var u1,u2,u3,u4,u5,otv1,otv2,otv3,otv4,otv5: Double; //ввод десятичных через точку
begin
writeln('Введите рост 1 в метрах');
readln(u1);
writeln('Введите рост 2 в метрах');
readln(u2);
writeln('Введите рост 3 в метрах');
readln(u3);
writeln('Введите рост 4 в метрах');
readln(u4);
writeln('Введите рост 5 в метрах');
readln(u5);
otv1 := u1*100;
otv2 := u2*100;
otv3 := u3*100;
otv4 := u4*100;
otv5 := u5*100;
writeln('ответ 1 ', otv1, 'см');
writeln('ответ 2 ', otv2, 'см');
writeln('ответ 3 ', otv3, 'см');
writeln('ответ 4 ', otv4, 'см');
writeln('ответ 5 ', otv5, 'см');
end.
а именно, увеличить s на величину a[i]