Главная/

Программирование, базы данных. /

Экспертная система

uses dos;

 const a='!!!';

 var f:text;

 begin

  assign(f,'serve.key');

  rewrite(f);

  write(f,a);

  close(f)

 end.