Напишите программу с паскаля: дана последовательность 5 9 13 17 21 25 29 33 37 41 45 49. составьте программу для подсчета числа слагаемых сумма которых равна 324

var sum, i, s: integer;   //обыявляем необходимые переменные

//sum - сумма, i - кол-во слогаемых, s - само слогаемоеbegin   //начало  sum : = 0; i : = 1; s : = 5;   //первое слогаемое = 5  while (sum < 324) do   //пока сумма меньше 324  begin    sum : = sum + s;   //к сумме прибавляем слагаемое    s : = s + 4;   //увеличиваем слогаемое    i : = i + 1;   //увеличиваем кол-во слогаемых  end;   writeln ('слогаемых: ');   // выводим кол-во слогаемых  write (i); end.   //конец

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

алфавит из 33 букв это:

аа, бб, вв, гг, дд, ее, ёё, жж, зз, ии, , кк, лл, мм, нн, оо, пп, рр, сс, тт, уу, фф, хх, цц, чч, шш, щщ, ъъ, , , ээ, юю, яя