Длины сторон первого прямоугольника а и в, его площадь в 6 раз меньше площади второго прямоугольника. найти длину стороны второго прямоугольника, если длина одной из его сторон равна с.

Program bb; uses crt; var a,b,c,d: real; begin write('введите сторону а первого прямоугольника: '); read(a); write('введите сторону в первого прямоугольника: '); read(b); write('введите сторону с второго прямоугольника: '); read(c); d: =(6*a*b)/c; write('вторая сторона второго прямоугольника = ',d); end.

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

один, два, три, четыре, пять

12345