Question

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

Answer 1

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