Нужно исправить блок схему и написать программу на qbasic

#include < bits/stdc++.h> using namespace std; int main() {     int n; cin > > n;     for (int i = 1; i < = n; ++i)     {             int tmp = i;             bool fl = true;             while (tmp) {                       int x = tmp % 10;                         if (x ! = 0)                               if (i % x ! = 0)                                   fl = false;                           if (! x) fl = false;                       tmp /= 10;             }             if (fl) cout < < i < < ' ';     } }

  var a, b: real; begin   write('введите стороны прямоугольника: ');   read(a, b);   writeln('периметр = ', 2 * a + 2 * b);     end. 2.  var p, b: real; begin   write('введите два числа: ');   read(p, b);   writeln('произведение = ', p * b);   writeln('разность = ', p - b); end. 3.  var b: real; begin   write('введите длину ребра: ');   read(b);   writeln('объем = ', b * b * b); end. 4.  var r: real; begin   write('введите радиус: ');   read(r);   writeln('площадь = ', 3.14 * r * r); end. 5.  var a, b, c: real; begin   write('введите три стороны: ');   read(a, b, c);   writeln('периметр = ', a + b + c); end.