Program Bol_2;
uses CRT;
var
  Price:Boolean; { наличие стипендии у студента }
  Kurs1:Boolean; { студент первокурсник }
  Rezult:Boolean; { Определяет результат }
begin
  clrscr;
  Price:=True; { студент получает стипендию }
  Kurs1:=True; { студент - первокурсник}
  Rezult:=Price and Kursl;
  writeln('Студент - первокурсник со стипендией?-'
              , Rezult);
  Price:=False; { Пусть наш студент не получает
                 стипендию }
  Rezult:=Price and Kursl;
  writeln('Студент - первокурсник со стипендией?-'
           ,Rezult);
  readln;
end.