Есть сведения о росте 5 учащихся класс,рост измерен в метрах. составьте программу для перевода роста из метров в сантиметры. быстро надо

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.