Табулирование, натуральные числа.

Uses crt;
 var n,sum,k,i,c,e,sumq:integer;
     s:string;
     mas:array [1..100] of integer;
begin
clrscr;
 Writeln (' vvedite chislo ');
 Readln (n);
str (n,s);
for i:=1 to length(s) do begin
                         val (s[i],c,e);
                         mas[i]:=c;
                         end;
for i:=1 to length(s) do begin
                         k:=k+1;
                         sum:=sum+mas[i];
                         sumq:=sumq+sqr(mas[i]);
                         end;
Writeln ('Kol-vo cifr = ',k);
Writeln ('Summa cifr = ',sum);
Writeln ('Kvadrat summy cifr = ',sumq);
REadln
end.

uses crt;
var n:longint;
    i,k,s,sk:integer;
begin
clrscr;
write('n=');
readln(n);
k:=0;s:=0;sk:=0;
while n>0 do
 begin
  i:=n mod 10;
  k:=k+1;
  s:=s+i;
  sk:=sk+i*i;
  n:=n div 10;
 end;
writeln('Количество цифр=',k);
writeln('Сумма цифр=',s);
write('Сумма квадратов цифр=',sk);
readln
end.

uses crt;
var x,a,b,h:real;
begin
clrscr;
write('a=');readln(a);
repeat
write('b>a b=');readln(b);
until b>a;
repeat
write('h<(b-a) h=');readln(h);
until h<b-a;
x:=a;
while x<=b do
 begin
  writeln('x=',x:4:2,'   F(x)=',cos(x):5:2);
  x:=x+h;
 end;
readln
end.