2. составьте программу для нахождения количества литров l, которое содержится в x галлонах (1 галлон = 4,54609 литра). исходное количество галлонов задается с клавиатуры. 3. напишите программу вычисления общего члена bn и суммы sn первых n членов прогрессии. первый член прогрессии b1, знаменатель прогрессии q и число членов с клавиатуры.

//pascalabc.net 3.2 сборка 1318 const   gal=4,54609;   var   x: real; begin readln(x); writeln(x*gal); end. //2 var   b1,q: real;   n: integer; begin readln(b1,q,n); if (b1=0) or (q=0) then   begin     writeln('b1=0 or q=0');     exit;   end else if q=1 then     begin     writeln('sum=',b1*n);     writeln('bn=',b1);   end   else   begin   writeln('sum=',b1*(1-power(q,n))/(1-q));   writeln('bn=',b1*power(q,n-1));   end;   end.

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.