Информатика, Паскаль 2 задачи под номером 4

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
var s:=ReadlnString('Введите дату в формате дд.мм.гг:');
var a:=s.Replace('.',' ').ToIntegers;
var m:=Arr('января','февраля','марта','апреля','мая','июня',
      'июля','августа','сентября','октября','ноября','декабря')[a[1]-1];
Println(a[0],m,a[2])
end.

Пример
Введите дату в формате дд.мм.гг: 20.05.2018
20 мая 2018

№2

begin
var (x,a):=Readreal2('Введите x и a через пробел:');
var y:real;
if x else
    if x>a then y:=(x-a)/(x+a)
    else y:=1;
Writeln(y)
end.

Более современный вариант:
begin
var (x,a):=Readreal2('Введите x и a через пробел:');
var y:=x a ? (x-a)/(x+a) : 1.0;
Writeln(y)
end.