Число 4 записать числовым кодом​

ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.

c=a

a=b

b=c

program num1;

uses crt;

var

x1,x2,y1,y2 : real;

d: real;

begin

clrscr;

write('x1='); readln(x1);

write('y1='); readln(y1);

write('x2='); readln(x2);

write('y2='); readln(y2);

d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

write('d=',d)

end.