Циклы (for and while), помогите составить программу в Pascal ABC, пожалуйста.
Составьте программу, которая выводит на экран количество трехзначных чисел у которых вторая цифра в два раза больше первой, а третья в два раза больше второй.

Только он не количество выводит, а сам числа, чет я невнимательно прочитал

А можите если не сложно исправить

Сек

Можете*

спасибо

varn, k: integer;t, v, p : real;begin    k:=0;    for n := 100 to 999 do    begin        p:= n div 100;        v := (n div 10)mod 10;        t := n mod 10;        if (v = 2*p) and (t = 2*v) then            k:=k+1   ;       end;      print(k);end.