Дано натуральное число верно ли что сумма его цифр меньше A?

ну в компил засунь, протести

я чекал, все норм

без лонгистов работает?

для тебя нужен инт или лонгинт?э

лонгинт просто более широкий

мне нужно,чтобы учитель понял,что я не скатал с интернета.

а я лонгисты не проходил

оу щет

а булины?

и буллины) 9 класс. массивы максимум.

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 zlt;a then writeln('Правильно, что сумма цифр меньше А') else
writeln('Ошибочно, что сумма цифр меньше А');
for i:=1 to length(q) do
begin
g:=g*q[i];
end;
if ggt;b then writeln('Правильно, что произведение цифр больше B') else
writeln('Неверно, что творенье цифр больше B');
if x=length(q) then writeln('Правильно, что число x значеное') else
writeln('Неверно, что число x значное');
if q[0]gt;m then writeln('Правильно, что его 1-ая цифра превышает m') else
writeln('Ошибочно, что его 1-ая цифра превышает m')
end.