Написать программу паскаль, которая запрашивает название животного и число, а затем выводит на экран фразу типа "белка съест 10 грибов" (при вводе слова "белка" и числа 10).

var 

  animal: string;

  number: integer;

begin

  writeln('введите название животного');

  readln(animal);

  writeln('введите число');

  readln(number);

  writeln(animal, ' съест ', number, ' грибов');

end.

            i                    с                 i            i с                                  c i

            i                  с                     i

            c -  cтул

            4 стула поставить по углам комнаты, а еще 4 - по одному у каждой стены.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.