Задано двухзначноечисло найдите произведение между кольчеством дестков и едниц

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadInteger().ToString();
write(a[1].ToDigit()*a[2].ToDigit());
end.

Var
  n:integer;
 
begin
  Read(n);
  Writeln((n div 10)*(n mod 10))
end.

QBasic — диалект языка программирования Бейсик (BASIC), разработанный компанией Microsoft, а также среда разработки, позволяющая писать, запускать и отлаживать программы на этом языке.

QBasic удобен для выполнения несложных вычислений и для прямой работы с портами. Наряду с Pascal, язык довольно популярен для обучения программированию, и не используется нигде.

Turbo Basic — компилятор языка Бейсик, а также его диалект, первоначально созданный Робертом «Бобом» Зейлом и впоследствии выкупленный у него компанией Borland

Для какого из указанных значений числа X ложно выражение

(X > 2) ИЛИ НЕ (X > 1)?

2

Для какого числа X истинно высказывание (X > 2)v(X > 5)→(X < 3)

2

Для какого из указанных значений числа X истинно выражение

(X > 2) И НЕ (X > 3)?

3  

Для какого из указанных значений числа X истинно выражение

(X < 3) И ((X < 2) ИЛИ (Х > 2))?

1  

Для какого из указанных значений числа X истинно выражение

(X < 4) И (X > 1) И (Х ≠ 2)?

3

Для какого из указанных значений числа X истинно выражение

(X > 4) ИЛИ (X < 7) И (Х < 6)?

1) 1

2) 2

3) 3

4) 4

Тут подходит любой вариант

Для какого из указанных значений числа X истинно выражение

(X > 1) И (X > 2) И (Х ≠ 3)?

4