Ввести число вывести "Мяу" если оно отрицательное и вывести "Гав" если оно положительное.

program test;vara:integer;beginwriteln('Введите число: ');readln(a);if a>0 then writeln('Гав ') else writeln('Мяу ');readln;end.