a = объект1.b

{$APPTYPE CONSOLE}

uses
   SysUtils,
   Math;

procedure SqRoot(a, b, c: Real;
        var x1, x2: Real;
        var ok: Boolean);

   var
     d: Real;
   begin
     ok := false;
     d := b*b - 4*a*c;
     if (d > 0) then
       begin
       x1 := (-b+sqrt(d)) / (2*a);
       x2 := (-b-sqrt(d)) / (2*a);
       writeln('x1 = ', x1);
       writeln('x2 = ', x2);
       ok := true;
       end
     else
       if (d = 0) then
         begin
         x1 := -b / (2*a);
         writeln('x = ', x1);
         ok := true;
         end
       else
         ok := false;
   end;

var
   a0, b0, c0, k1, k2: Real;
   rez: Boolean;
begin
   read(a0, b0, c0);
   SqRoot(a0, b0, c0, k1, k2, rez);
   if (rez = false) then
     writeln('RESHENIYA NET!');
   readln; // эта строка, наверное, просто так здесь...
   readln; // т.к. только эта строка срабатывает
end.

get_integer('Поясняющий текст', дефолтное_значение)

view_xport[0..7] Позиция X порта вида в рисуемой области.
view_yport[0..7] Позиция Y порта вида в рисуемой области.
view_wport[0..7] Ширина порта вида в рисуемой области.
view_hport[0..7] высота порта вида в рисуемой области.