С клавиатуры вводится натуральное число z. Вычислить: количество цифр в числе z; сумму цифр числа z; первую и последнюю цифры числа z.

var    z,k,n,sum: integer;    s,a: string;    i: byte; begin   write ('Введите число: ');   readln (z);   Str(z,s);   k:=length(s);   sum:=0;   for i:=1 to k do begin     a:=s[i];     n:=StrToInt(a);     sum:=sum+n;   end;     writeln ('Количество цифр в числе: ',k);   writeln ('Сумма цифр числа: ',sum);   writeln ('Первая цифра числа: ',s[1]);   writeln ('Последняя цифра числа: ',s[k]); end. ------------результат:-------------- Введите число: 567854 Количество цифр в числе: 6 Сумма цифр числа: 35 Первая цифра числа: 5 Последняя цифра числа: 4