Question

составьте программу выводящую на экран все двузначные числа у которых первая цифра в два раза больше второй

Answer 1

var
  i : integer;
begin
  for i := 10 to 99 do
    if i div 10 = (i mod 10) * 2 then
      write (i, ' ');
end.