Реализуйте расчет дня недели для дня рождения. Пользователь вводит месяц и день, а получает файл, содержащий дни недели, на которые приходится его день рождения
в ближайшие 20 лет.
После открытия файла пользователь должен увидеть результат
в подобном формате:
Date: 12.12
12.12.2021 — Sunday
12.12.2022 — Monday
12.12.2023 — Tuesday

попробуйте так (turbo pascal):

program 1;

var s: string;

c: integer;

begin

write('vvedite nazvaniye zhivotnogo');

read(s);

writeln('vvedite kolichestvo syedennyh gribov');

readln(c);

writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');

end.

чесно говоря без них куда легче

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then s[i]: ='*';

  writeln(s);

end.

с ними только больше кода

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then begin

          delete(s,i,1);

          insert('*',s,i);

      end;

  writeln(s);

end.

информация, насколько я помню

var a,b,c,a1,b1,c1: real;

begin

readln(a,b,c);

b1: =a;

c1: =b;

a1: =c;

writeln(a1,b1,c1);

end.