Составить выражение, определяющие, является ли студент первокурсником, получающим стипендию- Pascal(Паскаль)

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