Написать программу Паскаль…

var animal: string; number: integer; begin writeln ('Введите название животного'); readln (animal); writeln ('Введите число'); readln (number); writeln (animal, ' съест ', number, ' грибов'); end.