(* Программа cram -- демонстрация процедуры printf() *)
uses stdio,math;

const
  weekday:pchar = 'Воскресенье';
  month:pchar = 'Сентября';
  str:pchar = 'Hello, world';
  i:longint = 11058;
  day:longint = 15;
  hour:longint = 16;
  minute:longint = 25;
begin
  (* Вывести дату *)
  printf ('Дата %s, %d %s, %d:%.2d'#$a,
	  [weekday, day, month, hour, minute]);
  (* Перевод строки *)
  putchar ($a);
  (* Демонстрация различных комбинаций ширины поля и точности *)
  printf ('>>%s<<'#$a, [str]);
  printf ('>>%30s<<'#$a, [str]);
  printf ('>>%-30s<<'#$a, [str]);
  printf ('>>%30.5s<<'#$a, [str]);
  printf ('>>%-30.5s<<'#$a, [str]);
  putchar ($a);
  (* Вывести число i в разных форматах *)
  printf ('%d, %u, %o, %x, %X'#$a, [i, i, i, i, i]);
  (* Вывести число пи с точностью 5 знаков после запятой *)
  printf ('пи равно %.5f '#$a, [4 * arctan (1.0)]);
end.
