Как составить эту программу вычисления чисел кратных не только 2 но и 3. var x,y: integer ; begin y: =0; for x: = 10 to 99 do if x mod 2=0 then y: =y+1; writeln ('количество чисел, кратных 2, равно ', y); end.

Program aliona;
var
n,k,i:integer;
begin
writeln('n=');
readln(n); 
  k:=0;
for i:=1 to n do
if (i mod 2=0)and (i mod 3=0)
then
inc(k);
writeln('k=',k);
readln;
end.