Организуйте в Pascal любой цикл с параметром с шагом, равным трём
//Pascal ABC //Вывод чисел кратных 3 на промежутке от 0 до 50 var i:integer; begin for i:=0 to 50 do begin writeln(i); i:=i+2; end; end.