var
A: array [1..100] of real;
i,n: integer;
begin
writeln('Введите кол-во учеников: ');
readln(n);
writeln('Введите их рост в метрах поочередно: ');
for i:=1 to n do readln(A[i]);
writeln('Рост учеников в метрах: ');
for i:= 1 to n do writeln(A[i],' м');
writeln('Рост учеников в сантиметрах: ');
for i:= 1 to n do writeln(A[i]*100,' см');
end.