Технический форум - Помогите составить программу в Паскале

Цитата:

Сообщение от denisova (Сообщение 895878)

Написать программу, которая выполняет следующие действия:
– объявляет строку длиной 20 символов;
– заполняет эту строку 16-ю одинаковыми символами;
– в центре введенных 16 символов выводит 8 пробелов;
– в центре введенных 8 пробелов помещает 4 цифры, соответствующие текущему году,
взяв это значение из переменной типа Word.

Пожалуйста, только вот не уверен, что в Вашем Паскале пройдет команда GetDate с тем же набором параметров, что у меня (год, месяц, число, день недели). Может закапризничать.

Код:

Uses DOS,CRT;

Var

 S:String[20];

 S1:String;

 i:Byte;

 Y,M,D,DW:Word;

Begin

 ClrScr;

 S:='';

 For i:=1 to 16 do S:=S+'$';

 Writeln(S);

 For i:=1 to 8 do 

  begin

   Delete(S,4+i,1);

   Insert(' ',S,4+i);

  end;

 Writeln(S);

 GetDate(Y,M,D,DW);

 STR(Y,S1);

 Delete(S,7,4);

 Insert(S1,S,7);

 Writeln(S);

 ReadKey

End.