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

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