Составить программу вывода 30 целых чисел на экран
Блок-Схему, без паскаля

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.

думаю, что дикий заяц, он то серый, то белый, то кремовый, в течении года

началоположить топор в воду закипятить посолить добавить крупы добавить масла съесть кашу, а топор оставить, чтобы доварить в следующий раз

var x,y: real;

begin

  readln(x);

  if x> 8 then y: =x/4 else y: =x*5;

  writeln(y);

end.