напишите программу нахождения всех четных чисел,кратных P,
в диапазоне от N до М)пожалуйста ребята

varn,m,p,i:integer;beginwrite('Введите N,M,P через пробел: ');readln(n,m,p);For i:=n to m doif (i mod p = 0) and (i mod 2 =0)  then write(i,' ');end.

Вот держи, я даже оформил красиво! Var n,m,p,x,i:integer; Begin Write('Введите N >>> '); Readln(n); Write('Введите M >>> '); Readln(m); Write('Введите P >>> '); Readln(p); Writeln('------------------------------------------'); X:=0; For i:=n to m do If (i mod 2 = 0) and (i mod p = 0) and (i <> 0) then Begin X:=x+1; Writeln(i,' - Чётное и кратно ',p); End; End.