ABCpaskal:С клавиатуры вводится строчка, состоящая из букв и цифр. Написать программку

var s: string; i,code,k,c: integer;begin readln(s); for i:=1 to length(s) do if s[i] in ['0'..'9'] then begin Val(s[i],k,code); if k mod 2=0 then inc(c) end; writeln(c)end.

Var
s1,s2:string;
i,j,k,m:longint;
begin
readln(s1);
k:=length(s1);
s2:='24680';
for i:=1 to k do
  for j:=1 to 5 do
    if s1[i]=s2[j] then inc(m);
writeln(m);
end.
ну вроде так, скомпилируй только перед отправкой или сдачей

Uses crt;
var s1:string;
    s2:char;
    k,y,x:integer;
begin
     readln(s1);
     k:=0;
     for x:=1 to length(s1) do
         begin
              s2:=s1[x];
              if (ord(s2)lt;=57) and (ord(s2)gt;=48) then
                 if ord(s2) mod 2=0 then inc(y);
         end;
     writeln(y);
end.