Як перервати режим покрокового виконання в проекту?

a=float(input('Введите длину стороны a: '))

b=float(input('Введите длину стороны b: '))

c=float(input('Введите длину стороны c: '))

ma=0.5*pow( 2*(b**2+c**2)-a**2 ,0.5)

mb=0.5*pow( 2*(a**2+c**2)-b**2 ,0.5)

mc=0.5*pow( 2*(a**2+b**2)-c**2 ,0.5)

a=ma

b=mb

c=mc

ma=round( 0.5*pow( 2*(b**2+c**2)-a**2 ,0.5),2 )

mb=round( 0.5*pow( 2*(a**2+c**2)-b**2 ,0.5),2 )

mc=round( 0.5*pow( 2*(a**2+b**2)-c**2 ,0.5),2 )

print("Медианы треугольника, сторонами которого являются медианы исходного треугольника равны:")

print(ma,mb,mc)

Program Drob_0_55;
 uses Crt;
 const m=5;
          n=6;
 type Mat=array[1..m, 1..n] of real;
 var A: Mat;
     i,j: integer;
     frc: real;
     flag: boolean;

begin
 ClrScr;
   Randomize;                          {Датчик СЧ}
   for i:=1 to m do                     {Цикл ввода и вывода массива}
   begin
     for j:=1 to n do
        begin
           A[i,j]:=(10+random(70))/100;
           Write (A[i,j]:6:2);
         end;
   WriteLn;
   end;

   for i:=1 to m do                {Поиск}
      begin
      flag:=false;
      for j:=1 to n do
          begin
             frc:=frac(A[i,j]);
             if frc>0.55 then flag:=true;
          end;
      if flag then Writeln('‘Строка: ', i);
      end;
      if flag=false then WriteLn('Не найдено!');
 ReadLn;                                                    {Ожидание нажатия ENTER}
end.                                                f