Нарисовать в qbasic. у меня что-то не получается.​

  программную систему можно рассматривать как множество классов, позволяющих создавать, получать доступ и изменять коллекции данных, называемых объектами

вызов объектом компонента – основная базисная операция оо программирования

режим разметки страницы,режим структуры,режим чтения.режим веб документа-

program chislo;

var x: integer;

          z,y : real;

begin

readln(x);

y: =5.5;

z: = x-y;

writeln(z);

end.

при запуске программы вводите эти значения и тестируете.

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b) and (b> c) then begin

      a: =a*2;

      b: =b*2;

      c: =c*2;

  end

  else begin

      a: =-a;

      b: =-b;

      c: =-c;

  end;

  writeln(a,b,c);

end.