Выделите значения так, чтобы программа печатала значение true.

Var t: Boolean;
i: integer;
begin
t:= [true /false];
i:=0;
repeat
t:= [not t / false];
i:=i+1
until i=[100/101/102];
write (t)
end.​

uses crt; var

  a,b: integer; begin  write('введи возраст саши: '); read(a);

  write('введи возраст маши: '); read(b);

  writeln;   if a> b then write('саша старше маши');   if a< b then write('маша страше саши');   if a=b then write('маша и саша - ровесники'); end.

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end. №5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе')  end. 

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥

6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33