Дано натуральное число верно ли что сумма его цифр меньше a? верно ли что произведение его цифр больше b. верно ли что это число x значное? составное условие и вложенный условный оператор не использовать.верно ли что его первая цифра превышает m? много . решите через паскаль. и ,по возможности было,видно,что решил ученик 9-10 класса.

Var
q: string;
a,i,z,g,b,x,m: Integer;
begin
z:=0;
g:=1;
readln(q,a,b,x,m);
for i:=1 to length(q) do
begin
z:=z+q[i];
end;
if z<a then writeln('Верно, что сумма цифр меньше А') else
writeln('Неверно, что сумма цифр меньше А');
for i:=1 to length(q) do
begin
g:=g*q[i];
end;
if g>b then writeln('Верно, что произведение цифр больше B') else
writeln('Неверно, что произведение цифр больше B');
if x=length(q) then writeln('Верно, что число x значеное') else
writeln('Неверно, что число x значное');
if q[0]>m then writeln('Верно, что его первая цифра превышает m') else
writeln('Неверно, что его первая цифра превышает m')
end.