Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  mama
Language: PASCAL
Code:
var n,i,k,z:integer
begin
read(n);
read(k);
for i := 1 to n do begin
read(z)
if z+1>=k do 
write(z)
end;
readln;
readln;
end.
          
Comments: