нужно решить любые две задачи в ABC Pascal, желательно 1 и 3

просто большое человеческое спасибо.

Задание 1var i : integer;begin for i := 4 to 9 do  writeln(i,'*',i ,' - ',i*i);end.Задача 3 Var n,m,p,k:integer; Begin write('n=');read(n); m:=n;k:=0; while m<>0 do begin p:=m mod 10; K:=K+1; m:=m div 10; end; writeln('k=',k); end.