pascal.giúp mình vs.huhu

[thanhkhoeo[D2T Physics]]

Để em

bài 3

uses crt;
var n:longint ;
    c:char;
function
gt(k:integer) :longint;
begin
if k=0 then gt:=1 else gt:=gt(k-1)*k;
 end;
 begin
 clrscr;
 writeln(' ban co dong y thuc hien chuong trinh tinh giaai thua y/n');
 c:=readkey;
 writeln;
  if (c='y') or( c='c')  then
     begin
     write('nhap n');
     readln(n);
 write(gt(n));
 end else write('bye bye');
 readln;
 end.

-----------------------------------------
bài 1

var ds, dc,dk,i: byte;
    st:string;
begin
   write(' nhap sau ');
   readln(st);
     for i :=1 to length(st)do
        if st[i] in['0'..'9'] then ds:=ds+1
           else
              if (st[i]in ['a'..'z']) or  (st[i]in ['A'..'Z']) then dc:=dc+1
                else dk:=dk+1;
   write (' so ki tu chu', dc,' so kitu so', ds,]' so kitu khac', dk);
   readln end.

-----------------------------------------
bài 2

 

var i:integer;
function tlp(x:integer): boolean;
var o,k,j:integer;
  begin
      k:=x div 100;
      o:=o+k*k*k;
      j:=x mod 100;
      k:=j div 10;
      o:=o+k*k*k;
      j:=j mod 10;
      o:=o+j*j*j;
    if o= x then tlp := true else tlp:=false;
  end;
begin
  for i:=100 to 999 do
    if tlp(i) then write (i:8);
  readln end.