Помогите составить программу в Паскале

[denisova]

Помогите составить программу в Паскале

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

 

[Vladimir_S]

Написать программу, которая выполняет следующие действия:
– объявляет строку длиной 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.

 

[denisova]

Спасибо огромное!