Числа a, b, c обозначают дату. Определить сколько полных дней осталось до конца года.

var
  a,b,c,day:integer;
begin
  Write('Enter day:');Readln(a);
  Write('Enter mounth:');Readln(b);
  Write('Enter year (20xx):');Readln(c);
  if (b=4) or (b=6) or (b=9) or (b=11) then day:=30-a;
  day:=31-a;
  if b=2 then if (c mod 4)=0 then day:=29-a else day:=28-a;
  for a:=b to 11 do
  begin
    if (a=4) or (a=6) or (a=9) or (a=11) then day:=day+30 else day:=day+31;
    if a=2 then if (c mod 4)=0 then day:=day-2 else day:=day-3;
    Writeln(day);
  end;
  Writeln;
  Writeln;
  Writeln('Lost day:',day);
  Readln;
end.

Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если выполняется указанное условие, и FALSE в противном случае (Оператор IF не использовать). Введенные четыре символа образуют слово TRUE.

Var
  t:Boolean;
  s:string;
begin
  Writeln('Vvod');
  Readln(s);
  t:=(s='true');
  Writeln('t=',t);
  Readln;
end.