To KG

var m: integer; z: real;
begin
writeln('Перевести в килограммы: 1 — килограммы, 2 — милиграммы, 3 — граммы, 4 — тонны, 5 — центнеры');
readln(m);
if (m<1) or (m>5) then writeln('Введено неверное значение')
else
write('Введите значение массы: ');
readln(z);
case m of
1: writeln(z, ' кг = ', z, ' кг');
2: writeln(z, ' мг = ', z/1000000, ' кг');
3: writeln(z, ' г = ', z/1000, ' кг');
4: writeln(z, ' т = ', z*1000, ' кг');
5: writeln(z, ' ц = ', z*100, ' кг');
end;
end.