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

спасибо

спасибо

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

//PascalABC.NEt v3.3 1633

var A,B,x,m: integer;

i: integer;

num, composition, sum: integer;

begin

 A:=5;

 B:=1;

 x:=12;

 m:=6;

 write('Введите натуральное число: ');

 readln(num);

 

 composition:=1; // Произведение цифр числа

 sum:=0; // Сумма цифр числа

 

 // Преобразуем число в строку и пробегаемся по ней, находя

 //  сумму и произведение цифр.

 for i:=1 to IntToStr(num).Length do

 begin

   composition *= StrToInt(IntToStr(num)[i]);

   sum += StrToInt(IntToStr(num)[i]);

 end;

 

 if sum < A then

   writeln('Верно! Сумма его цифр меньше A!')

 else

   writeln('Не верно! Сумма его цифр не меньше A!');

 

 if composition > B then

   writeln('Верно! Произведение его цифр больше B!')

 else

   writeln('Не верно! Произведение его цифр не больше B!');

 

 if IntToStr(num).Length = x then

   writeln('Верно! Это число '+x+'-значное!')

 else

   writeln('Не верно! Это число не '+x+'-значное!');

   

 if StrToInt(IntToStr(num)[1]) > m then

   writeln('Верно! Первая цифра числа превышает '+m)

 else

   writeln('Не верно! Первая цифра числа не превышает '+m);

end.