1. ВАР
2. ЖАР
3. РОГ
4. ХОД
5. БОР
6. ГОН
7. БЕГ
8. ___
9. КОС
10. МОЛ
<em>// PascalABC.NET 3.2, сборка 1344 от 22.11.2016</em>
begin
var a:=ReadReal('Введите число');
Write(a,' ');
if (a<2) or (a>12) then Write('не ');
Writeln('принадлежит интервалу [2;12]')
end.
<u>Примеры</u>
Введите число 3.18
3.18 принадлежит интервалу [2;12]
Введите число 16
16 не принадлежит интервалу [2;12]
var
a,b : integer;
begin
writeln('введите 1 число ');
readln(a);
writeln('введите 2 число');
readln(b);
if a>b then
begin
y:=a+1;
writeln('1 число больше',y)
else
begin
y:=b+1;
writeln(' 2 число больше ',y);
end;
end;
end.