Написать программу, которая запрашивает название животного и число…

program fraza; var x,y: string; beginwriteln ('Введите название животного: '); readln (x); writeln ('Введите число'); readln (y); Writeln (x, " съест ", y, ' грибов.'); end.