Program qq;
var a,b:integer;
begin
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
if a>b then
writeln(b);
or
writeln(a);
end.
Var a,b,c:longint;
Begin
read(a,b,c);
if c mod 2=1 then
writeln('Нечетное') else
writeln('Четное');
if ((c>=a) and (c<=b)) then
writeln('YES') else
writeln('NO');
<span>End.</span>
Если поменять местами буквы, получится два слова - совет и отвес
6 слов можно составить))))))))))))))