срочно!!! делать в Паскале : запросить с клавиатуры четное 5-значное число , начинающееся тройкой и напечатать сумму его цифр. Если вводится не то число , то сообщить об этом и повторить ввод. Так же составить по этой задаче блок-схему и исп-таблицу - это не обязательно.

Var a,i,n,s:integer;  function q (a:integer):integer; var h,n:integer;  begin      n:=a;      h:=0;      q:=0;     while n>0 do     begin      n:=n div 10;      h:=h+1;       end;       if h = 5 then        begin         n:=a div 10000;          if n=3 then            if a mod 2 = 0 then          q:=1;        end ;     end;        begin  readln(a);  i:=a;   while q(i)<>1 do    begin    writeln('Error');   readln(a);   i:=a;   q(i);      end;      while a>0 do       begin        s:=s+a mod 10;        a:=a div 10;       end;      writeln(s);   end.