Участок цеха по производству туристического снаряжения выпускает туристические палатки. Определить количество брезента, необходимое для выполнения участком месячного плана- QBasic(Бейсик)

USES CRT;
VAR x, y : INTEGER;
BEGIN
  CLRSCR;
  WRITE ("mesyachniy plan: ");
  READLN (x);
  WRITE ("kol-vo brezenta dlya odnoj palatki: ");
  READLN (y);
  WRITE ("Summa: ");
  WRITE (x * y);
END.