<em>var g,s:string;
</em>
<em>begin
</em>
<em>readln(g);
</em>
<em>readln(s);
</em>
<em>writeln('Столица государства ',g,' - ','город ', s);
</em>
<em>end.
</em>
Нужно заключить выражения между and в скобки т.к. приоритет выполнения операции <u><em>and</em></u> выше чем у <u><em>></em></u> и условие выполняется неверно.
Правильная запись шестой строчки:
if ((a+b)>c) and ((a+b)>b) and ((c+b)>a) then
Наибольшее двузначное число, произведение цифр равно 63
Используя закон Де-Моргана и двойного дополнения получаем
-(-Av-B)^C = --(A^B)^C = A^B^C
Жаль редактор формул не поддерживает работу с множествами.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Введите целое число:').Reverse.Println
end.