Выход из положения.

Program Con;
 
Uses CRT;
 
Procedure Lolly;
          Begin
               ClrScr;
               Writeln('Мы во втором Гараже');
          end;
          
Procedure Lolly2;
          Begin
               ClrScr;
               Writeln('Тут стена красная');
          end;
Procedure Lolly3;
          Begin
               ClrScr;
               Writeln('Надо попотеть, чтобы выйти из Репита');
          end;
          
Procedure Lolly4;
          Begin
               ClrScr;
               Writeln('Вернулись в первый Гараж');
          end;
Procedure Lolly5;
          Begin
               ClrScr;
               Writeln('Нашли выход. Прогулка окончена');
          end;
          
Var a:string;
Begin
     Repeat
           Writeln('Вы в первом гараже');
           Readln(a);
           If a='Поехали' Then Lolly else
           If a='Цвет' Then Lolly2 else Lolly3;
     Until a='Поехали';
     
     Repeat
           Readln(a);
           If a='Вернулись' Then Lolly4 else
           If a='Выезжаем' Then Lolly5 else Lolly3;
     Until a='Выезжаем';
     
end.

Program Con;
Uses CRT;
var f:boolean;
Procedure Lolly;
          Begin
               ClrScr;
               Writeln('Мы во втором Гараже');
          end;
 
Procedure Lolly2;
          Begin
               ClrScr;
               Writeln('Тут стена красная');
          end;
Procedure Lolly3;
          Begin
               ClrScr;
               Writeln('Надо попотеть, чтобы выйти из Репита');
          end;
 
Procedure Lolly4;
          Begin
               ClrScr;
               Writeln('Вернулись в первый Гараж');
               Writeln;
          end;
Procedure Lolly5;
          Begin
               ClrScr;
               Writeln('Нашли выход. Прогулка окончена');
          end;
Procedure Start;
var a:char;
begin
 Repeat
  Writeln('Вы в первом гараже');
  Writeln('Выберите действие 1 - Поехали 2- Цвет');
  Read(a);
  If a='1' Then Lolly
  else If a='2' Then Lolly2
  else Lolly3;
 Until a='1';
end;
Procedure Finish(var a:char);
begin
 Repeat
  Writeln('Выберите действие 1 - Вернулись 2- Выезжаем');
  Read(a);
  If a='1' Then
   begin
    Lolly4;
    Start;
   end
  else  If a='2' Then Lolly5
  else Lolly3;
 Until a='2';
end;
var a:char;
Begin
 f:=false;
 Repeat
  Start;
  Finish(a);
 Until a='2';
end.

uses crt;
var P,i:integer;
    f:boolean;
begin
clrscr;
repeat
write('Введите натуральное число P=');
readln(P);
until P>0;
if P=1 then f:=false  //1 не простое
else
 begin
  i:=2;//начнем делить на все по порядку, начиная с 2
  f:=true; //считаем что число простое
  while(i*i<=P)and f do //пока квадрат делителя не больше числа и флаг=true
  if P mod i=0 then f:=false //если делится, иеняем значение флага(не простое) и выходим из цикла
  else i:=i+1;//иначе идем дальше
 end;
if f then write('Это простое число') //если флаг не изменился
else write('Это не простое число');
readln
end.

if f then write('Ýòî ïðîñòîå ÷èñëî')

if f=true then write('Ýòî ïðîñòîå ÷èñëî')

Uses CRT;
var n,g:boolean;
begin
If n and g Then writeln('Ïîëó÷èëîñü');
end.

Uses CRT;
var n,g:boolean;
begin
n:=True;
g:=True;
If n and g Then writeln('Ïîëó÷èëîñü');
end.

  i:=2;
  f:=true; //инициируем
  while(i*i<=P)and f do 
  if P mod i=0 then f:=false // иеняем значение 
  else i:=i+1;

uses crt;
var f:boolean;
begin
write(f);
end.

if f  (=> f=true) then write(1)//если сейчас true
else write(2)//если нет