Даны числа x и y (вводятся с клавиатуры). Вычислить их сумму, разность и произведение- QBasic(Бейсик)

USES CRT;
VAR a, b : INTEGER;
BEGIN
  CLRSCR;
  WRITE ("Vvedite chislo A: ");
  READLN (a);
  WRITE ("Vvedite chislo B: ");
  READLN (b);
  WRITE ("Summa: ");
  WRITELN (a + b);
  WRITE ("Raznost: ");
  WRITELN (a - b);
  WRITE ("Proizvedenie: ");
  WRITELN (a * b);
END.