[ART]

Вот некоторые:

Код:

program case4;
var
  N:integer;
begin
  writeln('введите номер месяца');
  readln(N);
case N of
  1, 3, 5, 7, 8, 10, 12:writeln('в этом месяце 31 день');
  4, 9, 11:writeln('в этом месяце 30 дней');
  2:writeln('в этом месяце 28 дней');
end;
end.

program for21;
var
 N,  i: integer;
 S,  A: real;
begin
 readln(N);
 S  :=  1;
 A  :=  1;
 for i  :=  1 to N do begin
  S  :=  S  *  i;
  A  :=  A  +  1 / S;
 end;
 writeln(A);
end.

program while4;
var
 N,  s: integer;
begin
 readln(N);
 s  :=  1;
 while (s  <>  N) do begin
  s  :=  s  *  3;
  if s  >  N then break;
 end;
 if s  =  N then writeln('TRUE') else writeln('FALSE');
end.

program series21;
var
 K,  S,  N,  J,  i: integer;
 f: boolean;
begin
S  :=  0;
f  :=  true;
Readln(N);
Readln(J);
 for i  :=  2 to N do begin
  Readln(K);
  if K  <  J then f  :=  false;
  J  :=  K;
 end;
 writeln(f);
end.