Хватит на школьном алгоритмическом языке логическое выражение -10

Var   n, m, p, k, sum, x: integer;   s: string;   c, i: byte; begin   write('число: ');   read(n);   m : = n;   k : = 0;   while m < > 0 do   begin       p : = m mod 10;       k : = k + 1;       m : = m div 10;   end;     str(n, s);   c : = 0;   for i : = 1 to length(s) do       if s[i] in ['0', '2', '4', '6', '8'] then           inc(c);     x : = n;   sum : = 0;   while (x < > 0 ) do   begin       sum : = sum + (x mod 10);       x : = x div 10;   end;     writeln('количество чисел: ', k);   writeln('количество четных чисел: ', c);   writeln('cумма чисел : ', sum); end.

1) program discuc; uses crt; var x,y,z,c,d,r,q,w: real; begin writeln ('введите x'); readln (x); writeln ('введите y'); readln (y); writeln ('введите z'); readln (z); writeln ('введите c'); readln (c); q: =sin(sqr(x)); d: =cos(x)/cos(exp(ln(x)*3)); w: =z/y*c; r: =q+d+w; writeln ('r=',r: 5: 2); readkey; end. 2) program bibup; uses crt; var x,y,z,c,v,j: real; begin writeln ('введите x'); readln (x); writeln ('введите  y'); readln (y); z: =(1/(sqr(+1; c: =sqrt(5); v: =6.7*(sqr(y)); j: =z-c+v; writeln ('j=',j: 5: 2); readkey; end. это если в pascal free надеюсь это то