Написать программку которая выводит на экран все четные числа кратные 3

// Пример программки на языке Паскаль.

var
   i : integer;    // объявляем переменную целочисленного типа.
   s : string;    // объявляем переменную строкового типа.
begin
  for i := 0 to 50 do    // начало цикла.
    begin
      if ((i mod 3 = 0) and (i mod 2 = 0)) then //проверяем является ли число четным и кратным 3.
       begin
          s := s + i + ; // формируем строку с четными элементами кратными трем.
       end;
    end;
  writeln (Четные числа из спектра от 0 до 50, кратные трем : , s);  // вывод на экран строчки.
end.