Решить.паскаль1)найти сумму целых двузначных чисел. 2)найти произведение целых чисел от 3 до n

1) var a,b,s : real; begin readln(a,b); s: =a+b; write(s); end. 2)несовсем понятно var a,n,i: integer; begin readln(n); for i: =1 to n do begin a: =3*i; write(a); end; end.

Var i, b, c, n, m: integer;     a: string;     d: array [0..50] of integer; begin       readln(n, m);       a : = inttostr(n);       for i : = 1 to length(a) do           if (strtoint(a[i]) mod 2 = 0) then           begin               d[c] : = strtoint(a[i]);               c : = c + 1;           end;       for i : = 0 to m - 1 do   writeln(d[i], ' '); end.так, кажется, только если ввести число больше кол-ва чётный цифр в числе, то будет ошибка, я не знаю, как бороться.

Цифровое устройство - техническое устройство или приспособление, предназначенное для получения и обработки информации в цифровой форме, используя цифровые технологии. на  второй  вопрос  -  перефирийные  устройства,  к  ним  относится  все,  что  не  входит  в  системный  блок,  т.к.  для  функционирования  компьютера  они  не  обязательны,  к  ним  принадлежат  монитор,  клавиатура,  мышь,  принтер  и  т.д.