program z1;
var i:integer;
begin
for i:=20 to 50 do
if (i mod 3 = 0) and (i mod 5 <> 0) then write (i:4)
end.
Объяснение:
Перебираем числа от 20 до 50 через цикл и проверяем их на соответствие условию.
