Program help2;
var a,b,c:LongInt;
begin
    ReadLn(a);
    ReadLn(b);
    a:= ( b < c ); //   и тут я не понял
   If then else

if <услове> then
  <оператор/выражение, которые будут выполняться, если условие - истинно>
else
  <оператор/выражение, которые будут выполняться, если условие - ложно>

if (4 > 3) then
   writeln('4 > 3')
else
   writeln('Не может быть такого, чтобы 3 было больше 4.');