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

var a,a1,a2,a3: integer;  

begin 

read(a); - читаем данное число

a1: =a mod 10;  

a2: =a div 10;

a3: =a1+a2;

if a3 mod = 0 then write('да')

                          else(write('нет');  

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Блин что за муть как сложно,думаю как решить )

Var k,kc,ks, r,rc,rs, l,lc,ls: integer; summa: integer; begin writeln('введите цену карандаша'); readln(kc); writeln('введите цену ручки'); readln(rc); writeln('введите цену линейки'); readln(lc); writeln('введите кол-во карандашей'); readln(k); writeln('введите  кол-во ручек'); readln(r); writeln('введите  кол-во линеек'); readln(l); ks: = k * kc; // цена карандашей rs: = r * rc; // цена ручек ls: = l * lc; // цена линеек summa: = ks + rs +ls; // общая цена всех 3-х writeln('сумма = ', summa; readln; end.

// pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin   var n: =arrrandom(50,-111,348); n.println;   writeln('произведение элементов, кратных 5, равно ',       n.where(x-> x mod 5=0).aggregate(biginteger(,b)-> a*b));   if n.where(x-> x.isodd).count> n.where(x-> x.iseven).count then       writeln('нечетных элементов больше')   else writeln('четных элементов больше') end. пример 151 129 60 55 140 -61 180 221 -7 1 -6 118 80 215 -109 176 82 265 209 234 36 276 71 147 268 138 288 300 37 270 290 79 -88 183 197 -13 23 222 -106 137 76 180 240 287 -55 -7 48 111 222 -82 произведение элементов, кратных 5, равно -21155254513747200000000000000 четных элементов больше