Создать программку которая переводит значения величин данной в мм, см, дм,

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

Uses

CRT;

var

i,n:integer;

fact:longint;

begin

readln(n);

if nlt;0 then writeln('ГГ*ГГГГГЁГ*ГГ* ГГГГЁГГ*ГГГГГ*ГГГ ГГЁГГГ* Г*ГГ!!')

else if n=0 then writeln('ГГ*ГГГГГЁГ*Г:=',1)

else if ngt;0 then

begin

fact:=1;

for i:=1 to n do

begin

fact:=fact*i;

end;

writeln('ГГ*ГГГГГЁГ*Г ',n,':=',fact);

end;

readkey

end. и так дальше как вы знаете там проверка и далее точно так же