1. if
2. A
3. B
4.
var a : integer;
begin
writeln('Который час?');
readln(a);
if (a > 4) and (a < 12) then writeln('Доброе утро')
else if (a >= 12) and (a < 17) then writeln('Добрый день')
else if (a>=17) and (a < 21) then writeln('Добрый вечер')
else if (a >= 21) and (a <= 4) then writeln('Доброй ночи');
end.
5.
var
a : integer := 167;
b : integer := 121;
c : integer;
begin
c := a*b;
if c > 2000 then writeln('Произведение большое')
else writeln('Произведение маленькое');
writeln(c);
end.