CРОЧНО нужно написать код вычесления
Условие

С клавиатуры вводится два целых числа из 8 цифр, где первые 2 цифры - это день, следующие 2 цифры - это месяц, а последние 4 - это год.

Пример даты: 14052001

День: 14

Месяц: 5

Год: 2001

Первое число - дата проведения мероприятия "Соревнование по прыжкам с табуретки", второе число "Кулинарный фестиваль бутерброда".

Выведите на эран название мероприятия, которое случилось раньше. Если даты мероприятий совпадают, то выведите на экран фразу "В один день".

Формат входных данных

Целые числа 1000000 ≤ X, Y ≤ 99999999

Это даты проведения "Соревнование по прыжкам с табуретки" и "Кулинарного фестиваля бутерброда".

Формат выходных данных

Фраза - ответ.

входные данные выходные данные

12042019

12042019

В один день

12042019

12042019

В один день

30082000

12052018

Соревнование по прыжкам с табуретки

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

а-1; мама-4; весна-5 - количество букв

а-1; шея-2; мама-2; огурец-3 - количество гласных

а-0; шея-1; мама-2; огурец-3 - количество согласных

существительные женского рода