Тема: Условия выбора и простые логические выражения 1. Запишите следующие высказывания в форме логических выражений
а) фамилия ученика - не Семенов,
б) ученик занимается геологией,
в) дата рождения - раньше 5 мая 1989 года,
г) дата поступления - не позже 23 сентября 1996 года,
д) оценка по алгебре - не «отлично»,
е) автор книги - Беляев А.Р.,
ж) книга издана до 1990 года,
3) книга находится не ниже третьей полки,

function isLucky(a: integer): boolean;
var s: string;
begin  
    str(a, s);  
    while length(s) < 6 do s := '0' + s;  
    isLucky := ord(s[1]) + ord(s[2]) + ord(s[3]) = ord(s[4]) + ord(s[5]) + ord(s[6])
end;
var 
    sTicket: string;    
    iTicket, i, err, sum: longint;
begin  
    write('Введите Ваш номер билета: ');  
    read(sTicket);  
    val(sTicket, iTicket, err);  
    for i := 1 to iTicket do    
        if isLucky(i) then inc(sum);  
    writeln('Выдано ', sum, ' счастливых билетов');  
    writeln('Осталось выдать ', 55251 - sum, ' счастливых билетов')
end.

Var
  x,f:real;
begin
  Write('Введите x: '); Readln(x);
  if (x>-2.4) and (x<5.7) then f:=sqr(x)
  else f:=4;
  Writeln('F=',f)
end.

var
  x,f:real;
begin
  Write('Введите x: '); Readln(x);
  if (x>0.2) and (x<0.9) then f:=sin(x)
  else f:=1;
  Writeln('F=',f)
end.

var
  a,b,c:real;
begin
  Write('Введите три числа: '); Readln(a,b,c);
  Write('Условие ',a,'<',b,'<',c);
  if (b>a) and (b<c) then Writeln(' выполняется.')
  else Writeln(' не выполняется.');
  Write('Условие ',b,'>',a,'>',c);
  if (a<b) and (a>c) then Writeln(' выполняется.')
  else Writeln(' не выполняется.')
end.