Как только началась олимпиада Женя и Алёна получили сообщение
М. Петрушевская

1695-1696 – пётр первый делал свои знаменитые азовские походы.

1703 – пётр первый основал санкт-петербург. событие произошло 16 мая.

1709 – была полтавская битва, она произошла 27 июня.

пе́рвая мирова́я война́(28 июля  1914 —  11 ноября 1918 гг)

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.