I Составьте прграммы для решения следующих задач:
1. Дано дузначное число. Определить:
а) является ли произведение его цифр двузначным числом;
б) больше ли числа а сумма его цифр;
в) кратна ли трем сумма его цифр.
2*. Определить, является ли заданное шестизначное число счастливым.
(Счастливым называют такое шестизначное число, что сумма его первых трех цифр равна сумме его последних трех цифр).

ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ помогите пожалуйста хотя бы все пункты первого

1)var s: string;   p, a: integer;begin   read(s);   p := strtoint(s[1]) * strtoint(s[2]);   if (p.ToString.Length = 2) then writeln('a)Да') else writeln('a)Нет');   write('Введите a:');   read(a);   if (a < (strtoint(s[1]) + strtoint(s[2]))) then writeln('б)Да')    else writeln('б)Нет');   if ((strtoint(s[1]) + strtoint(s[2])) mod 3 = 0) then writeln('в)Да') else writeln('в)Нет'); end.2)var s:string;begin read(s); if(s.Length=6)then if (strtoint(s[1])+strtoint(s[2])+strtoint(s[3])= strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))then write('Да') else write('Нет'); end.