Программа в Pascal ABC: Дано натуральное число. Определить: а) количество цифр в нем; б) сумму его цифр; б) сумму квадратов его цифр.

б)program up1;var q,w:integer;beginwrite('введите число');read(q);while q>o dow:=q mod10;w:=w+w;q:=w div 10;end;write('сумма цифр числа равна',w);end.