Вывод элементов массива через запятую

Pas.0003. Напишите программу, которая выводит все элементы массива в одну строку через запятую и пробел, но за последним элементом массива должна стоять точка.

Решение.

Pascal

program WriteArrayWithCommasAndPoint;

const
    N = 12;
    COMMA = ', ';
    POINT = '.';
 
var
    k: integer;
    a: array[1..N] of integer =
        (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
    separator: string = COMMA;
 
begin

    for k := 1 to N do
        begin
            if k = N then
                separator := POINT;
            write(a[k], separator);
        end;
 
end.

Консоль.

31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31.