Мышь, тачпад и трекбол выполняют функцию комп.мыши, получается, что лишнее - клавиатура
Вводим числа a и b
переменную k обнуляем
если а больше или равно 0, то инкрементируем k
если нет, то ничего не делаем.
переходим в обоих случаях к следующему циклу
если b больше или равно нулю, то инкрементируем k
если нет то нет.
результат выводим (k)
это наматывание счётчика k
Для импликации(ложна только тогда, когда первое логическое значение истинно. а второе ложно; в остальных случаях истинна):
1→1=1
1→0=0
0→1=1
0→0=1
Для эквивалентности(истинна только тогда, когда оба выражения истинны или ложны):
0⇔0=1
1⇔0=0
0⇔1=0
1⇔1=1
В десетерчной системе исчесленя - 18
в восьмерчной - 22
Если я правильно понял ,что нужно.
var
a,b:integer;
begin
readln(a,b);
if (a>b) then writeln(a,' > ',b)
else
if (a<b) then writeln(a,' < ',b)
else
writeln(a,' = ',b);
end.