Решение №1 (через целочисленное деление)

var a: integer;
begin
  a:=26;
  repeat
    if a mod 3 =0 then write(a:3);
    a:=a+1;
  until a >87;
end.

Решение №2 (без целочисленного деления)
Заметим, что первое число в данном диапазоне кратное 3 равно 27. Тогда каждое следуещее число на 3 больше предыдущего:

var a: integer;
begin
  a:=27;
  repeat
    write(a:3);
    a:=a+3;
  until a >87;
end.

//Pascal ABC.NET v3.1 сборка 1172

begin
range(26,87).Where(x -> x mod 3=0).Println(',');
end.