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

var 

  animal: string;

  number: integer;

begin

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

  readln(animal);

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

  readln(number);

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

end.

1 simvol zanimaet 1 bait(tak kak imeem tekst);

tekst shpargalki sostavliaet 50*50=2500 simvolov-2500 bait.

da + eshe 0,3*2500=750.

vsego 2500+750=3250 bait.

var

i,j,s: integer;

x: array[1..8,1..8] of integer;

y: array[1..10,1..10] of integer;

begin

s: =0;

for i: =1 to 8 do

for j: =1 to 8 do

begin

readln(x[i,j]);

if i< =j then s: =s+x[i,j];

end;

writeln("сумма для x=", s);

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

begin

readln(y[i,j]);

if i< =j then s: =s+y[i,j];

end;

writeln("сумма для y=", s);

end.